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A REAL-TIME COMPUTER "GARBAGE COLLECTOR" 

FIELD OF THE INVENTION 

This invention relates to the field of computer 
memory management, and in particular to the problem of 
5 efficiently performing computer garbage collection in 
real-time, 

M; BACKGROUND 

O Computer programs typically make use of variables or 

O 

2 similar labels to reference data "objects." A portion of 

; p 10 computer memory must be allocated during execution to 

j! each such object. Over time, as many such objects are 

Q created and used, the available, "free" memory that 

f remains to be allocated in a particular system may begin 

k| to run short. As is well known in the art, a variety of 

H 15 methods and techniques have been proposed and implemented 
S to reclaim as "free" and available those portions of 

M computer memory that were originally allocated to program 

objects that are no longer in use by any running program. 
This task is generally known in the art as "garbage 
20 collection." A great variety of different garbage 

collection techniques have been developed and used; for 
example, the reference paper Uniprocessor Garbage 
Collection Techniques by Paul R. Wilson (available 
through Internet via anonymous FTP from cs.utexas.edu as 
25 pub/garbage/bigsurv.ps) provides a broad survey of 
existing techniques, and explains commonly used 
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terminology. That paper is incorporated herein in its 
entirety by this reference. 

Prior art garbage collection systems have generally 
suffered to various degrees from the problem of excessive 
pause times. This problem arises when garbage collection 
is performed in real-time, i.e., concurrently with the 
execution of other live programs running on one or more 
processors. (In the field of garbage collection, the 
other live programs are typically referred to as 
"mutators," because such programs potentially "mutate" or 
change the state of memory, from the point of view of the 
garbage collector or "GC") 

For example, suppose that a system contains multiple 
mutator threads and a single GC thread. (A "thread" is 
an execution context within a shared address space, as 
discussed further below.) If the mutators are, for 
example, trying to present a movie at 30 frames per 
second, and they require a combined time of 23ms to 
generate each frame, then problems will arise if the GC 
thread is run for more than 10ms during any particular 
33ms interval. It would therefore be desirable in this 
scenario to guarantee that the garbage collector will run 
no more than 30 times per second (i.e., its frequency 
will be no greater than 30; equivalently, its period will 
be greater than or equal to 33 ms) , and also that each 
time the garbage collector is run it will execute for a 
maximum duration of no more than 10 ms.- 

GC frequency and duration can of course be kept 
"limited" through brute force, in the sense that the 
execution time allotted to the GC program may be 
explicitly rationed under control of the operating system 
or some other scheduling manager. This does not solve 
the problem at hand, however, because garbage collectors 
generally perform certain non-deferable, atomic work that 
must not be interrupted by mutators, at the risk of 



causing potential memory corruption. For example, a 
well-known family of GC schemes known as "copying" 
collectors (described in the Wilson survey paper, for 
example) actually copy, to a new location in memory, each 
data object that is determined not to be garbage (i.e., 
the object may still be in use by a live program) . Since 
each such data object can potentially be arbitrarily 
large, and because the copying operation is necessarily 
atomic, a copying garbage collector may enter a phase 
where it cannot be interrupted by any mutator for an 
arbitrarily long period of time. Such GC schemes are 
generally not satisfactory for real-time systems where a 
maximum GC duration is required. 

While non-copying garbage collectors also exist in 
the prior art f e.cr. , Henry G. Baker Jr., The Treadmill: 
Real-Time Garbage Collection Without Motion Sickness, 
SIGPLAN Notices Vol. 27 No. 3 at pp. 66-70, March 1992, 
incorporated herein in its entirety by this reference) , 
many current applications of interest — notably, in the 
realm of multimedia — require limits on the maximum 
frequency and duration of garbage collection that the 
prior art has so far failed to dependably satisfy, at 
least on general-purpose stock hardware. As a result, 
systems running multimedia applications and the like have 
so far been unable to use garbage collection, and have 
instead been forced to rely on inconvenient, manual 
storage management techniques. 

SUMMARY OF THE INVENTION 

The present invention disclosed herein provides a 
novel method and apparatus for real-time garbage 
collection that offers unprecedented low bounds on the 
worst-case for GC frequency and duration. 



Briefly, the present invention is used with a 
plurality of objects and with one or more mutators. The 
mutators, and the garbage collector itself, run on one or 
more computer processors, as scheduled by a scheduler. 
Stock hardware may be used; i.e., special purpose 
hardware is not necessary. The mutators each have a 
corresponding thread with a corresponding thread state. 
In the present invention, execution of all mutators is 
temporarily restricted at the start of each new garbage 
collection cycle. However, unrestricted and concurrent 
execution of each mutator is resumed, as soon as that 
mutator's thread state is processed by the garbage 
collector. 

In another feature of the present invention, the 
mutators are executed subject to a protective write 
barrier. However, the write barrier does not have to be 
applied to the modification of any mutator thread states, 
yielding valuable performance benefits. 

BRIEF DESCRIPTION OF THE DRAWINGS 

Fig. 1 illustrates representative apparatus for 
practicing the present invention. 

Fig. 2 depicts an illustrative classification of 
program memory for purposes of the present invention. 

Fig. 3 illustrates the external pointers and the 
doubly-linked used to keep track of object "color 11 in a 
preferred embodiment of the invention. 

Fig. 4 shows a flow chart of garbage collection 
steps that are performed in the preferred embodiment of 
the present invention. 

Fig. 5a depicts a simple example of some objects and 
their "color" status prior to scanning. 

Fig. 5b depicts the same simple example, but after 
some scanning has been done in accordance with the 
present invention. 



Fig. 6 depicts the same simple example, but after 
further scanning has been done in accordance with the 
present invention. 

Fig. 7 illustrates the use of a write barrier. 

DETAILED DESCRIPTION OF THE PREFERRED EMBODIMENTS 
Basic Concepts and Definitions 

Fig. 1 depicts a representative system that may be 
employed to embody the present invention. Garbage 
collection preferably takes place in its own execution 
thread 20 in real-time and concurrently with the 
execution of multiple mutator "threads" 22a-n and 24a-n. 
All of these various threads are run on one or more 
processors 26a-n. Where, as in the typical case, there 
are more live threads than processors, Scheduler 28 
manages processors 26a-n by allocating each processor's 
time and resources among the multiple live threads. 
Processors 26a-n preferably interact with standard 
input/output facilities 29. 

Formally, a thread is an execution context within a 
shared address space. A thread's "state" is defined by 
an associated set of local data, such as a run-time stack 
and a set of registers, or the like. Multiple threads 
preferably access other data — e.g. . global data and 
heap data — within a shared, common address space. For 
purposes of illustration, we will often discuss each 
thread in terms of its associated stack and register set, 
although it will be readily appreciated by those of skill 
in the relevant art that alternate implementations of 
threads and thread states, or the equivalent, are 
possible, and would generally be within the scope of the 
present invention. 

Figure 2 classifies program memory for purposes of 
garbage collection. The "root set" 30 contains all data 
which is directly accessible by the program: this 



includes each thread state 32a-n, as well as all global 
pointers 34 in the program's data sections. Heap 36 
contains pointers which are indirectly accessible by the 
program via the root set. Any and all other portions of 
memory 38 ( e.g. . static code segments storing machine 
instructions) are ignored by the garbage collector* 
An object's state with respect to the garbage 
collector is conceptually described by one of four 
"colors" : 

1. White - These objects are currently subject to 
collection. It is as yet uncertain whether these 
objects are live (i.e., accessible to a running 
mutator program) or garbage (i.e., inaccessible). 

2. Black - These objects have been classified as live 
during the current GC cycle, and any pointers within 
these objects have also been traced. The notion of 
a GC cycle is further described below. 

3. Gray - These objects have been classified as live 
during the current GC cycle, but at least some of 
the pointers within these objects have not been 
traced yet. 

4. Green - These objects are garbage, free to be 
allocated. 

As shown in Figure 3, the color information for an 
object is redundantly represented in two ways. First, 
the color information is stored directly within each 
object (such as for sample object 40) in an explicit 
field (such as sample color field 42). In addition, each 
object contains link pointers (such as sample pointers 44 
and 46) that place it within a doubly linked list 
corresponding to its color. Thus, four external pointers 
— White 48, Black 50, Gray 52, and Free (or Green) 54 — 
point to the first object in each such list. Baker's 
Treadmill (cited earlier above) similarly linked every 



object subject to garbage collection into a doubly-linked 
list reflecting its status. 

With respect to the color information stored 
directly in an object, Gray and Green may be represented 
by constant bit patterns. However, because of the "flip" 
operation performed at the start of each GC cycle, as 
described below, the meanings of the two respective bit 
patterns corresponding to Black and White alternate, and 
are determined by the values of two global variables 
(e-q- / current_black and current_white) . If the color 
bit pattern matches current_black, then the object is 
black; likewise, a match with current_white indicates 
that the object is white. 

The Garbage Collection Cycle 

Garbage collection is performed in cycles. The 
basic steps of each such cycle are charted in Figure 4. 
According to the present invention, when a new cycle is 
commenced, all mutators are temporarily restricted from 
modifying memory by creating any new data objects. This 
is reflected in steps 60 and 62. A mutual exclusion 
("mutex") lock or similar protection mechanism may be 
readily employed to effect this purpose. The net effect 
is that as each new GC cycle begins, scheduler 28 will 
temporarily suspend the execution of any mutator that 
attempts to create a new object. Of course, the start of 
a new cycle can be delayed until a convenient moment if 
required by the mutators. 

An important aspect of the present invention is that 
the temporary restriction on mutators is extremely brief, 
as explained below. At step 64, a "flip" is performed. 
At the start of each GC cycle, every data object that is 
a candidate for potential collection starts out initially 
as Black. That is because all data objects when first 
created are initially allocated as Black, and because any 



data object that existed during the previous cycle and 
that was not labelled as Free garbage must have been 
labelled Black. Therefore, the basic purpose of flip 64 
is to relabel all of the Black objects as White (i.e., as 
current candidates for collection) . This is done simply 
by making the White list pointer point to the head of the 
previous Black list, and by re-initializing the Black 
list pointer. The meaning of the color information 
stored directly in data objects is likewise flipped, very 
simply by swapping the values of current_black and 
current_white . 

At this point, scheduler 28 preferably suspends the 
execution of all mutators completely. (In fact, for 
simplicity, execution of mutators may be temporarily 
suspended in entirety beginning at step 62-) At step 66, 
a list of all live threads is saved. Next, at step 68, 
the state information f e.cr. , the live portion of stack 
and register information) for each mutator thread is 
processed. This "processing" step may be done directly 
by performing scanning step 74 described below, or may be 
more quickly performed by simply saving each thread state 

— such as by copying that information to a "mirror" area 

— one thread at a time, for subsequent use in step 74. 
The mirror area may preferably be allocated in memory at 
thread creation time for usage by the garbage collector. 
In fact, "saving" a thread state may be performed without 
necessarily copying the thread information right away, 
but instead simply setting (under control of the 
operating system) the protection status of thread state 
as "copy-on-write." As is well known in the art, setting 
memory protection status in this way will cause actual 
copying to take place only when and as needed. 

Importantly, as represented by step 70, each mutator 
is permitted to resume executing in unrestricted fashion 
as soon as its own thread information has been processed. 



Thus, any "pause 11 experienced will be minimal; a mutator 
can rest assured that its unrestricted execution will be 
resumed within an inf initesimally short amount of time 
that varies only with the size of the thread state for 
that mutator. In practice, all of these initial steps 
(i.e., steps 60 through 66 and step 68 with respect to a 
given mutator) will collectively require no more than a 
handful of milliseconds, at worst. 

Thus, once thread state information has been 
processed, a mutator is essentially free to execute 
whenever it desires (from the perspective of the garbage 
collector), until the end of the GC cycle. The remainder 
of the GC cycle — which actually, in terms of duration, 
is by far the lion's share of each cycle — is devoted to 
tracing through memory and identifying those data objects 
that are still in use and cannot be recycled. 

As shown in steps 74 and 76, this remaining portion 
of the GC cycle really proceeds in two primary phases. 
The first phase, step 74, involves scanning the root 
set's pointers: i.e., pointers stored in either the saved 
thread states or in global data* These pointers identify 
memory locations that are directly accessible by an 
executing program. Pointers stored in root set locations 
may reference objects in the heap; scanning or tracing 
the root set thus simply identifies all of the heap 
objects that may be directly referenced by a running 
program through root set pointers. For each root set 
pointer, the collector determines if the pointer points 
to an object in the heap. If so, the object's color is 
inspected; if the object was until now White, then the 
object is made Gray. An object is made Gray by removing 
it from the White list via the double link pointers, and 
prepending it to the head of the Gray list. Since all 
Gray objects ultimately turn Black by the end of a GC 
cycle, the Gray list is contiguous with the Black list, 



and the Gray list pointer points at the current head of 
the Gray list. Thus, after step 74 is completed and all 
of the root pointers have been examined, the Gray list 
will contain all data objects that are directly 
accessible via root set pointers. 

Figures 5a and 5b provide a simple example to 
illustrate the activity of scanning the root set during 
step 74. Figure 5a shows objects 1-5 as White, before 
scanning has been done. Figure 5b reflects the results 
of some scanning: objects i, 3, and 5 are still White, 
but the scan step has determined that objects 2 and 4 are 
pointed to by the root set, and those two objects have 
therefore been made Gray. In addition, Fig. 5b shows 
that new objects, 6,7, and 8, have been created 
(presumably by concurrently executing mutators) , and have 
all been properly initialized as Black. Objects 6 and 7 
were "recycled" from Free objects 6 and 7 (Fig. 5a) . In 
this example, no objects remain on the Free list for 
further recycling, although additional memory not yet 
managed by the garbage collector may exist (such as was 
used for allocating object 8) . 

Referring once again to Figure 4, the next step 76 
identifies all of the indirectly accessible objects: 
i.e., those data objects that are not pointed to directly 
by the root set, but can instead be transitively 
referenced, in that other accessible objects within the 
heap point at them. This step 76 involves iteratively 
scanning or tracing every Gray object — i.e., every 
object that is live, and that contains pointers to 
currently White objects — so as to follow all accessible 
pointers to any other objects within the heap; such 
objects when found are in turn also marked as Gray. This 
technique is continued recursively, until the entire tree 
of reachable objects is traced out and identified. 



In more detail, scanning at step 76 proceeds from 
left to right, as indicated in Figure 5b at 80. The Gray 
object immediately to the left of the first Black object 
— in this case, Gray object 2, to the left of Black 
object 6 — is the next Gray object to scan. Just as 
with the root set, all pointers in each Gray object must 
be examined. When every pointer within a given object 
has been traced, that object's color is changed to Black: 
i.e., it's internal color is directly changed, and the 
Black list pointer is advanced one object to the left 
using the double links. If a pointer in a Gray object 
being scanned is found to reference a White object in the 
heap, that heap object is in turn removed from the White 
list and prepended to the left-most end of the Gray list. 
Scanning the Gray list in this manner effectively 
provides a breadth-first traversal through the tree of 
all accessible objects in. the heap. 

When the Gray list pointer and the Black list 
pointer are equal, there are no more Gray objects, as 
shown in Figure 6. At this point, traversal is complete: 
all accessible, live objects have been marked Black, 
while everything else (in this case, objects 1 and 5) 
remains White, and may safely be regarded as garbage to 
be made available for recycling. In order to recycle 
these garbage objects, each object in the White list 
should have its color set to Green, assuming that a 
"conservative" collection scheme is being employed, as is 
well known in the art. Non-conservative collectors may 
omit the Green coloring. In either case, the data object 
at the head of the White list is then appended to the end 
of the Free list at step 7S, and is thereby made 
available for reuse. This completes the GC cycle. 

Note that this technique has been described in terms 
of multiple threads running on one or more processors, 
but all associated with a single address space. If 
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multiple address spaces are used in the target 
environment, then the present method may simply be 
repeatedly applied in the same way to each address space, 
as will be evident to those of skill in the art. 

Concurrently Executing the Mutators and Collector. 

Using a Write Barrier 

We have explained that after the initial work 
involved in steps 60 through 66 and part of step 68 is 
done, mutator execution may proceed concurrently with the 
remaining work of the garbage collection cycle. However, 
an additional precaution is necessary to prevent mutators 
from transferring pointer information in ways that 
inadvertently fool the garbage collector into wrongly 
characterizing an object as garbage. Briefly, the 
potential problem may be illustrated as follows. Suppose 
that the pointer to a particular White object in the heap 
is, at the start of a new GC cycle, only stored in a 
single, live object. Suppose further that sometime 
during the cycle, a mutator overwrites that pointer, but 
copies it first into another data object. Suppose 
further that this other data object — which is now the 
sole live route for accessing the White object on the 
heap — has already been fully traced and marked Black by 
the garbage collector at this point. In this scenario, a 
problem arises because the White heap object is still 
accessible and is not truly garbage, but the garbage 
collector will never find any path to it during this 
cycle, and will therefore ultimately mischaracterize it 
as garbage. This problem is well known in the art, as is 
the solution of employing a so-called "write barrier." 
For the present invention, a write barrier of the 
"snapshot-at-beginning" variety known in the art is 
preferably used, although, as explained further below, 
the manner of applying the write barrier in accordance 



with the present invention is novel in certain very 
important respects. 

Basically, such a write barrier is intended to 
ensure that all objects which are live as of the instant 
a new GC cycle begins will be successfully traced and 
retained by the garbage collector. The write-barrier is 
preferably applied only to code running on a mutator 
thread. Any pointer writes into the heap or the global 
data section must go through the write barrier. The 
write barrier works by examining the pointer that is 
about to be overwritten. If the pointer which is about 
to be overwritten points at a White object in the heap, 
then that object must be made Gray. For example, as 
shown in Fig. 7, the color of object 12 is changed from 
White to gray by write barrier 15, before pointer 14 is 
overwritten. The change to Gray may be done immediately, 
or it may be done lazily by saving a copy of the pointer 
in a list and allowing the GC to examine the pointer at 
some point before the current collection is complete. If 
immediate Graying is chosen, and the invention is being 
practiced in a multi-processor environment, then it is 
further necessary to prevent different threads from 
simultaneously modifying the Gray list, in order to avoid 
possible corruption of the list. This protection may 
easily be achieved by means of a mutex lock, as will be 
evident to one of ordinary skill in the art. Write 
barrier 15 may be implemented by modifying a compiler 
applied to the mutators, so as to invoke a suitable 
routine wherever pointer overwrites are attempted. 
Alternately, calls to a routine may be manually inserted; 
a simple parser may be implemented by one of ordinary 
skill to flag potential pointer overwrites. In any case, 
write barrier 15 ensures that all objects which are live 
at the start of a collection cycle will be made Black by 
the collector sometime during that cycle. 
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Note that the write barrier preferably need not be 
used with respect to modification of the initial pointer 
values in a newly created object, since all new objects 
are preferably initialized with a special value such as 
NULL when first allocated, and NULL cannot possibly point 
at a White object in the heap. 

An important aspect of the present invention is that 
modifications of pointers stored as part of the thread 
state — i.e., in the thread stack or registers — are 
preferably not made subject to write barrier 15. This 
exception can safely be made, because the present 
invention always saves thread state information during 
the initial phase of each GC cycle, before any mutators 
can possibly alter the thread state; thus, all objects 
references from within the thread state areas will have 
been preserved. Therefore, once the mutator threads have 
been scanned during the beginning of a new collection 
cycle, they need not be examined again during that cycle, 
nor need they be made subject to write barrier 15. 

The result of applying write barrier 15 in this 
manner is dramatic. In practice, most mutator 
modification is done with respect to the thread state, as 
opposed to other data. Even more importantly, thread 
state modification typically involves fast, register-type 
access and avoids the overhead of main memory access. 
Application of the write barrier, of course, necessarily 
introduces main memory access each time, since the 
pointer being modified must be traced into the heap. 
Consequently, applying the write barrier to modification 
of thread state pointers, as has been conventional in the 
prior art, necessarily introduces severe performance 
penalties. These penalties are themselves a further 
reason why prior art garbage collection systems have been 
unable to satisfactorily service real-time multimedia 



applications and systems. The present invention, as 
explained, is free of such prohibitive penalties* 
Source code created by the author for use in 
implementing the present invention in the C programming 
language is included below for purposes of further 
illustration of a preferred embodiment. 
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/* Memory management configuration for the mac */ 

#ifndef _jnenucanfig_iu 
fdefine _jnen\_conf ig_h_ 

/* Basic parameters V 
fdefine MAX_HEAP_SEGMENTS 500 
#def ine MAX_STATIC_SEGMENTS 1 

fdefine MAX_SEGMENTS MAX^HEAP_SEGMENTS + MAX_STATIC_SEGMENTS 
/* These are used if we can have multiple heap segments */ 
#def ine DEFAULT_FIRST_HEAP_SEGMENT_SIZE 1170000 
#def ine DEFADLT_HEAP_SEGMECTT_SIZE 1 « 18 

fdefine DEFAULT_FIRST_STATIC_SEGMENT_SIZE 350000 

fdefine DEFAULT_STATIC_SEGMENT_SIZE 0 /* only 1 static segment for now * 

/* These are used if we can only have a single heap segment */ 

fdefine BASE_SYSTEM_MEMORY DEFAULT_FIRST_HEAP_SEGMENT_SIZE + DEFAULTJFIRST_STATIC_SEGM 
fdefine SYSTEM_TO_HEAP_RATIO 0.08 

fdefine ENABLELDEALLOCATION 0 

fdefine ENABLE _J*OPOINTERS 1 

fdefine ENABLELSELECTIVEJ5ETF 0 

fdefine ENABLE_EXPLICIT_GLOBAL_ROOTS 0 

fdefine GQJiSGS 0 

fdefine GC_DEBOG_tfSGS 0 

fdefine GCLASAP 0 

fdefine CHECK^BASH 0 

fdefine CHECK_SETFINIT 1 

fdefine TRACELWEHLUSAGE 1 

fdefine MAX_TRACE_METAS 256 

fdefine GC_POINTEE^ALIGNMENr 2 
fdefine PAGE_POWER 10 
fdefine NUH.REGISTERS 32 
fdefine THREAD_LIMIT 100 

fdefine EEFAULT_GC_INCREMENr 20 /* in milliseconds */ 
fdefine BJTERIOK_PT^J^ 512 

typedef SXlong tock^type; 

fdefine CPCLTOCKS(tr) (KJlicroSeconds(&(tr) ) ) ; 
fdefine SHX*JDS_PERJTOCK 1E-6 

fdefine EI^SEO-MILLISECONDS ( start , delta) { tock_type end; CPUJTOCKS(end) ; \ 

delta = (end.lo - start. lo) / 1000.0; } 
fdefine STAPT.COEEJTIMING { tock_type start_tocks; double time; CPUJTOCKS(start_tocks) 
fdefine QJD.CODELTIMING (total) ELAPSED^LLISECCNDS ( start_t ocks , time); total = total 



fdefine ENABLELVTSUAI^JfEMDRY 1 

fdefine VTSOA1^MEMORY_ON ( ENABLEJVISUALuJffiMOPY && visual _perrcry_on) 
fdefine VISUAI^ffiMORy_DEFAULT_CN 0 

fdefine UPnATSJ/ISOAL_STATE() { if ( VISUAL J4EMORY_CN) { SXdraw_visual_gc_state ( ) ; }} 
fdefine ENABLE_GC_TIMING 1 
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#define ENABLE_REALLOC_COUNT 0 

#def ine DETECT_INVALID_REFS 0 
#def ine TRACE_BOOT_MEM_USAGE 0 

/* oic.c and StartScriptX.c use this.,. move it somewhere else */ 
#if TRACE_BOOT_MEMJCJSAGE 

# define traceMem( label) SXsnapMemoryTrace { ( (SXobject) label)) 
#else 

# define traceMemf label) 
#endif 



#endif 
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/* infoBits.h */ 

#ifndef _infoBitsJi_ 
#def ine _infoBits_h_ 



/* Links are divided into a pointer and some low order info bits. 
We could store object group indices in the info bits 
if we wanted to for speed. */ 

/* General macros /data */ 

typedef struct gc_header { 

struct gc_Jieader * prev; 

struct gcjtieader * next; 
} GC_HEADER; 

typedef GC_HEADER * GCPTR; 

typedef struct gcrrcLheader { 

struct gc_Jieader * prev; 

struct gc_Jieader * next; 

void * metadata; 
} GCMD_HEAEER; 

typedef GCMELJ5EADER * GCMDPTR; 
#def ine LBJK^INFO_BITS 4 

#define LIN^_INFO — MASK ((1 « LINK_INFO_BITS) - 1) 
tdefine LINK^JOINTE3UlASK ( -LINK^INFCLMASK} 

#define GET_LINK_POINTER ( 1 ) {(GCPTR) (((int) (1)) & LINK — POINTEfL_MASK) ) 

#define SET_LINK_POINTER ( 1 , value ) (SXbeerBash (1, (GCPTR) (((int) (1) & LINK_INFO_MASK 

#define GET_LINK_INF0 ( 1 , mask) ((int) 1 & (mask)) 

#define SET_LINK w INFO(l / inask,bits) (SXbeerBash (1, (GCPTR) (((int) 1 & -(mask) ) I bits 



/* GC info bits 

* anybody defining new bits had better initialize them in rtanem:SXinitializeObject() 

* unless of course you* re implementing the "random" object :-) 
*/ 

#define GCJSTORAGELINFOJMASK (0x3) 
#define GCjCOLOI^INFQJlASK (0x3) 

fdefine GET_STORAGE_CLASS(p) (GET_LD^INFO<p->next,GC^^ 

♦define SET_STORAGELCIASS(p,SXclass) { SET_LINK_INFO (p->next , GC_ST0RAGE_INFQJ4&SK , SXcla 

fdefine GET_INSTANCE_STORAGE_CIiASS ( o ) (GET_LINK_INFO{ { (GCPTR) ((char*) (o) - sizeof(G 
#define SET_INSTANa:_STORAGE_CLASS(o,SXclass) (SET_LINK_INFO( ( (GCPTR) ((char*) (o) - 
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♦define GET_COLOR(p) {GET_LINK_INFO (p->prev, GC_COL0R_INF0_MASK) ) 

#def ine SET_COIiOR (p, color) ( SET_LINK_INFO (p->prev, GC_COLOR_INFO_MASK, color) ) 



#define SC_NOPOINrERS 
#define SC_POINTERS 
♦define SC_METADATA 
#define SC_INSTANCE 



0 
1 
2 
3 



#def ine GENERATIONO 0 

♦define generationi i 

#def ine GRAY 2 

#def ine GREEN 3 



/* Could use GREEN=GRAY, but we've got room */ 



♦define WHITEP(p) 
♦define BLACKP(p) 
♦define GRAYP(p) 
♦define GREENP(p) 



(GET_COLOR(p) =: 

(GET_COLOR(p) = 

(GET_COLOR(p) =: 

(GET_COLOR(p) = 



= unmarkecLcolor) 
= marked_color) 
= GRAY) 
= GREEN) 



/* Proxy info bits */ 
♦define PROXY_INFO_MASK (0x4) 

♦define GET_PROXY_INFO ( o ) 
♦define SET_PROXY_INFO ( o , bit ) 
♦define PROXYP(o) 



( GET_LINK_INFO { ( (GCPTR) 
(SET_LHJK_INPO{ { (GCPTR) 
( GET_PROXY_rNFO ( O ) ) 



((char *) 
((char *) 



(o) - sizeof (GC_HEADER 
(O) - sizeof (GC_HEADER 



♦endif /* whole file */ 
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#ifndef _joeirL.internals_h_ 
#def ine ,jnen\_internals_h_ 

# include _f_peirucanf ig_h_ 
#include "infoBits.h- 

#if (OS == WINDCW5_OS) 
# include •mdclocks.h" 
#endif 

/* Other parts of the system like to use INLHEAP and INJSLOBALS */ 
#def ine EMPTY_PAGE ( (GPTR) 0) 
#define SYSTE*<_PAGE ( (GPTR) 1) 
#define STATIC_PAGE ((GPTR) 2) 
tdefine EXTERNAL_PAGE ((GPTR) 3) 

#def ine HEAP_SEGMENT 0 
♦define STATIC_SEGMENT 1 

#define BYTES_PER^PAGE (1 « PAGE_POWER) 
tdefine PAGE^ALIGNMEOTJMASK { BYTES_PER_PAGE - 1) 

tdefine PTRJTO_PAGE_INDEX (pt r ) ((int) ( ( (BPTR) ptr - first _partition_ptr) » PAGE_P0WE 
#define PAGELINDEXjrO_PTR (page_index ) ( f irst^part itioruptr + ( (page_index) « PAGE_POW 
tdefine PTRJTOJ3ROUP (ptr) pages [ PTI^TO_PAGE_INDEX (ptr) ] . group 

tdefine ^PARTITION (ptr) (((BPTR) ptr >= first_partitioruptr) && ((BPTR) ptr < last_p 
tdefine PAGEjSROUP(ptr) ( EL.PARTITICN (ptr) ? PTRJTO_.GROUP (ptr ) : EXTERNAL_PAGE) 
tdefine INLHEAP (ptr) ((int) PAGE_GROUP(ptr) > (int) EXTERNAL>_PAGE ) 

tdefine ECSTATIC <ptr) (((BPTR) ptr >= first_j3tatic_ptr) && ((BPTR) ptr < last_static_ 
tdefine IN_HEAP_OR_STATIC(ptr) (INLHEAP (ptr) || INjSTATIC(ptr) ) 

tdefine IN_GLOBALS(ptr) ( (((BPTR) ptr >= f irst_globals_ptr) && ((BPTR) ptr < last_glo 
tdefine ROU^_DCWNLTO_PAGE (ptr) ((BPTR) (((int) ptr & -PAGE^ALIGNMENT_MASK) ) ) 
tdefine ROUND_UP_TO_PAGE (ptr ) ( ROUND_D0WN_TO_PAGE (pt r ) + BYTES_PER^PAGE ) 

typedef unsigned long * LPTR; 
typedef unsigned char * BPTR; 

extern BPTR first^partitionjfcr; /* First heap object will always be scanned! */ 

extern BPTR last_partiticpj>tr; 

extern BPTR first_static_ptr; 

extern BPTR last_3tatic_ptr; 

extern BPTR f irst_globals_ptr ; 

extern BPTR last_globals_jptr ; 

extern BPTR f irst_globals_ptr2 ; 

extern BPTR last_globals_ptr2 ; 

tdefine MIN_GROUP_INDEX 4 /* yields min 16byte objects */ 
tdefine MAX^GROUP_INDEX 22 /* yields max 4meg objects */ 
tdefine MIN_GROUP_SIZE (1 « MIN_GROUP_INDEX ) 
tdefine MAXJ3ROUP_SIZE (1 « MA3LGROUP_INDEX ) 

tdefine NUMBERjOF_GROUPS (MAXLGROUP_INDEX - MIN_GROUP_INDEX + 1) 
tdefine MIN_OBJBCTLALIGNMENr (MIN._GROUP_.SIZE - 1) 

tdefine INSTANCEL.TO_GCPTR (pt r ) ( (GCPTR) ((BPTR) ptr - sizeof (GC_HEADER) ) ) 
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#define HEAPjDBJBCTJTQJ3CPTR{ptr) ( (GCPTR) ( ( int ) ptr & -MIN_OBJECT_ALIGNMENT) ) 
#define DOUBLELJ^LIGNMENT (sizeof (double) - 1) 

#define DOUBLE^LIGNED_P (p ) ((int) p == (((int) p) && -DOUBLE_ALIGNMENT ) ) 
#define I£NG_J^LIGNMEOT (sizeof (long) - 1) 

#define ROUND_UPTO_IX^^IGWMENT (n) ( ( ( ( (n) - 1)) & -LONG .ALIGNMENT ) + sizeof (long) ) 
/* HEYi This is a pretty stupid definition. Something better? 
tdefine METADATAP(p) ( IN_GLOBALS (p) II ! (isObj (p) ) ) */ 

/* HEYi This is still pretty dumb, but better. . . */ 

#define CLASSP(ptr) ( IN^HEAPJDF^STATIC ( pt r ) (GET_INSTANCE_STORAGE_CLASS(ptr) == SC_ 
tdefine METADATAP(ptr) ( ! (CLASSP(ptr) ) ) 

#if (OS == MACROS) 

♦define MAYBE_PAUSE_GC if ( (pause_gc_f lag != 0) && (pause_ok_f lag i= 0)) { sa£ause_gc ( 
#elif (OS == WIND0W5_OS) 

tdefine MAYBE_PAUSE_GC if ( (tgtTime <= SXgetMDClockCounter { ) ) && (pause_ok_f lag != 0)) 
tendif 

tdefine MAYBE_SLEEP_GC if (total_allccatiorx_this_cycle == 0) SXsleep_gc ( ) ; 
tdefine MAYBE^AWAKEN__GC if (gc_sleeping) SXawakerugc ( ) ; 

tdefine MIN(x,y) ( (x < y) ? x : y) 
tdefine MAX(x,y) ( (x > y) ? x : y) 

tdefine SWAP(x,y) {int tirp; tirp s x; x = y; y = tup; } 

typedef struct group_inf o { 
int size; 
int index; 

GCPTR free; 
GCPTR f ree_last ; 
GCPTR white; 
GCPTR black; 
GCPTR gray; 

int total_object_count; 
int white_count ; 
int black_count; 
int greeiueount; 
} GROOP_INFO; 

typedef GROUP_INFO * GPTR; 

typedef struct segment { 

BPTR first_segment_ptr; 

BPTR last_segment_ptr; 

int segment _page_count; 

int type; 
} SEGMENT; 

typedef struct hole { 
int page_count; 
struct hole *next; 
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} HOLE; 

typedef HOLE * HOLE_PTR; 

typedef struct page_info { 
GCPTR base; 
GPTR group; 
int bytes_ used; 
} PAGE_INFO; 

typedef PAGE_INFO * PPTR; 

typedef struct thread^info { 

SXobject thread; 
} THREAD_INFO ; 

typedef THREAELINFO * TPTR; 

/* ANSI C lossage.,,*/ 
void scan_gray_set ( ) ; 
void scaiuglobals { ) ; 
void flipO ; 

void scan_jivenory_segment {BPTR low, BPTR high) ; 
p void scan^object (GCPTR ptr, int total_size); 

void pause__gc ( ) ; 
void awakeiugc ( ) ; 
2 void *big_jnalloc(int size); 

GCPTR int erior_to_gcptr (BPTR ptr) ; 
void SXinit_errptyj?ages{int firstjpage, int page_count, int type); 

HJ char * SXobject_color_to_string (GCPTR color); 

«j» char * SXstorage_class_to_string(int storage_class) ; 

Q extern void SXverify_total_object_count (void); 

\a void SXverifyJieader (GCPTR ptr) ; 

void SXver ify_group { GPTR group) ; 

void SXverify_all_groups (void) ; 

int S^rint_object_info( GCPTR ptr, int i); 

void SXpr int_page_inf o ( int page_index) ; 

void SXprint_group_inf o {GPTR group) ; 

void Sprint jneniory_3uitinary (void) ; 

SXobject SXfindParents (SXobject address); 

void gcDefStackBase(void) ; 

void SXaddMarkRegion ( int kind, void *from, void *to); 
void SXaddMarkRegion2(int kind, void *frcm, void *to) ; 
void SXinit^globalJbounds (void) ; 
void GlobalsMarkRegion(void) ; 
SXint SXreal_isobj (void *ptr) ; 

SXint SXallocatianTrueSize ( void * metadata, SXint size); 
SXint SXtrueSize (void *ptr); 
void SXawakerugc (void) ; 
void SXpause_gc (void) ; 
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void SXsleep_gc(void) ; 
void SXrestart_gc (void) ; 

void SXinit_Jheap ( int def ault_heap_fcytes , int static_size, BPTR f irst_partition_ptr, BP 

void SXinit_realtime_gc(void) ; 

void scarLjnemory_segment (BPTR low, BPTR high) ; 

int SXmake_ob j ect_gray ( GCPTR current, BPTR raw); 

#if TRACE_MEM_USAGE 

void SXtrace_allocate(void ♦metadata, SXint request_size, SXint used_size) ; 

void SXtrace_staticAllocate ( void *metadata, SXint request_size, SXint used_size); 
#endif 

void machine_specific_init_heap(void) ; 
void clearGCSniff (SXobject thread); 
void * SXbig_jnalloc(int size); 
void SXcopy_regs_to_s tack (BPTR regptr) ; 

SXobject SXtaakeMDVisualDebugger( SXobject x, SXobject y, SXobject def aultwidth, SXobject d 
SXobject visible) ; 
u ; int SXupdate_visual_page ( int page_number) ; 

h void SXmaybe_update_visual_page ( int page_numfoer, int oldUbytes_used, int new_tytes_use 

q void SXupdate_visual_static_page(int page_number) ; 

n void SXupdate_visual_f ake_ptr_page ( int page_index) ; 

V void SXdraw_visual_gc_state (void) ; 

% void SXdraw_yisual_gc_stats (void) ; 

J[ void SXvisual_runbar_on(void) ; 

2j void SXvisual_runbar_of f (void) ; 

void SXinit_visualjnerory (void); 

void SXmousedown^in^visual_j^ width, SXint height, short modifiers ); 

fU void SXtouseup_in^visual_mero^ width, SXint height, short modifiers); 

M void SXrefreshjvisualjtororyj^ ; 
«p void SXtoggle_visual_fliemory (void) ; 
0 void SXterjninate^yisxialjnerooryfvoid) ; 
M void out_of_jtenory(char *spacejname, int size); 

extern GROUP_INFO * groups; 
extern PAGE_INFO *pages; 
extern THREAD_DJFO * threads; 



extern int nextjrhread; /* HEY! get rid of this... V 

extern SXobject gc_thread; 
extern int gc_count; 
extern int gc_increment ; 
extern int visual jr«nory_on ; 



extern SEGMENT * segments; 
extern int total_segnents; 
extern int oK_to_gc_in_growzone ; 
extern int heap_kbytes; 
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extern int total_partition_pages; 
extern int memory t ex; 
extern int gc_sleeping; 
extern int gc_count ; 
extern int worX_t ode- 
extern int unmarked_color; 
extern int markecLcolor; 
extern int enable_gc; 
extern int enable_write_£arrier; 
extern int tracing_jnenuusage ; 

extern int total_allocation; 

extern int total_requestecLallocation; 

extern int total_requested_objects; 

extern int total_allocatioruthis_cycle; 

extern double total_viz jner^t iirve_in_incronent ; 



extern char *last_gc_state; 

H ! extern double las t_cyc le_ms ; 

Q extern double last_gc_jns; 

p extern int last_increments; 

U extern double last_jiBX_increment_pts; 

jg extern double last_write_barrierjnns; 

JJj extern SXbool SXstartingScriptX; 

fi void set_gc_pause_f lag (void) ; 

5\ #endif 
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/* Interface to the memory manager. */ 

#ifndef _allocate_h_ 
#def ine _allocate_h_ 

#define ENABLE_.REALTIME.jGC 1 

/* Predefined Metadata */ 

#define SXpointers ((void *) 0) 

#define SXnopo inters ((void *) 1) 

extern void * SXwrite_fc>arrier ( int * lhs_address, int rhs); 

extern void * SXsaf ejoash ( int * lhs_address, int rhs); 

extern void * SXsaf e_setflnit (int * lhs_address, int rhs); 

extern void * SXallocate ( void * metadata, SXint number_of kbytes) ; 
J! extern void * SXst at icAl locate (void * metadata, SXint nmriber_of _fcytes) ; 

O extern void * SXreallocate (void *po inter, SXint new_size) ; 

extern void SXdeallocate (void *pointer) ; 

jp 

SI extern void * ptrcpy(void * pi, void * p2, int nunLfcytes) ; 

D 

b extern void * ptrset(void * pi, int data, int numJbytes) ; 

fy extern SXobject SXgc(void); 

£ extern SXobject SXmemUsage (void) ; 

p[ extern SXobject SXnenHighTide ( void) ; 

extern SXobject SXtotalFreeHeapSpace (void) ; 

extern SXobject SXlargestFreeHeapBlock(void) ; 

extern SXobject SXtotalFreeSystenSpace(void) ; 

extern SXobject SXlargestFreeSyst eroBlock ( void) ; 

extern SXobject SXsetGc Increment (SXobject inc) ; 

extern SXobject SXf indParents ( SXobject address) ; 

extern SXint SXf orEachlnstance ( SXobject class, void (* func) (SXobject) ) ; 

extern void SXst art_gc (void) ; 

void SXcancel_gc_pause_callback(void) ; 
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void SXscan_thread{SXobject thread); 
void SXset_gc_pause_f lag (void) ; 
extern int enable_gc; 

extern SXint SXstackAllocationSize(void * metadata, SXint size); 
extern SXint SXallocationTrueSize(void * metadata, SXint size); 
extern SXint SXtrueSize (void *ptr) ; 

extern void * SXinitializeObject (void * metadata, void *base, int total_size, int real 

extern void SXstartMemoryTracing ( void) ; 

extern void SXs t opMemoryTr ac ing (void) ; 

extern void SXprintMemoryTrace(SXobject label); 

extern void SXsnapMen©ryTrace(SXobject label); 

#if (COMPILER == THINKC) 
#def ine STACK_JtfJOXL.LOSSAGE (size, result ) 



move.l 


size, dO 


• \ 


neg.l 


dD 


\ 


add.l 


sp, dO 


\ 


moveq. 1 


#-4, dl 


\ 


and. 1 


dl, dO 


\ 


move.l 


dO, sp 


\ 


move.l 


dO, result 





*f- tdefine SXalloca (size, result) asm{ STACK_ALLOC_LOSSAGE (size, result) } 



N #define SAVELjSTACK__LOSSAGE (height ) move.l sp, height 

#define RESTORELSTACIL-IOSSAGE (height) move.l height, sp 

tdefine SXsaveSt ack (height ) asm{ SAVEJSTACK^DOSSAGE (height) } 
#define SXrestoreSt ack (height) asm{ RESTORE_STACK W LOSSAGE (height ) } 
#endif 

#if (COMPILER == WATC0H_DOS) 
♦include <malloc.h> 
#define SXsaveStack (height) 
#define SXrestoreStack (height) 

tdefine SXalloca(size, result) result = alloca(size) ; 
#endi£ 

#if (COMPILER == XLC) 

#define SXalloca(size, result) result = (void* )alloca( size ) ; 
#define SXsaveStack (height) 
idefine SXrestoreStack (height) 
iendif 
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/* Hope introducing a new scope doesn't change the stack height! */ 
#define SXXstackAllocate (metadata, size, base) \ 

{ int real_size = SXstackAllocationSize (metadata, size); \ 

SXalloca(real_size, base); \ 

base = SXinitializeObject (metadata, base, real_size, real_size) ; 
#endif 

#define INVALID^ADDRESS OxEF 
# include _f_writebarrier_k_ 
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/* Real time Storage garbage collector running on its own thread 

* History (Most recent first): $Log: rtgc.c, v $ 

* Revision 1.4 1994/05/19 01:26:55 wade 

* Montery fixes 

* Revision 1.3 1994/05/06 22:00:11 tidwell 

* changes to clocks for title support 

* Revision 1.2 1994/05/05 16:47:10 sobrino 

* Fix Windows conpiler errors. 

* Revision 1.1 1994/05/05 02:57:55 wade 

* memory reorg + misc fixes 

* Revision 1.114 1994/04/28 18:09:08 clayton 

* Beta changes made in main branch (nop setgcincrement ( ) for Windows) 

* $End_of_Log$ 
*/ 

#include "gdefs.h* 
#include "oic.h* 

/* Conditionally include this * entire* file */ 
#if ENABLE_REALTIME_GC 

# include _f.jnenL.conf ig_Ju 

#def ine THREAD_CALLBACK 
# include <assert.h> 

# include Jt jnenuinternalsjtu 
♦include _f_clockProtocols_h_ 
# include _f_KFixedMathJx_ 
# include _f_threadSysteniA_ 
♦include "priority. h a 
♦include "metadata, h" 

/* Global GC variables follow. We do NOT want GC info containing 

heap pointers in the global data section, or the GC will 

mistake them for mutator pointers and save them! Hence, we 

malloc some structures. */ 
#if (OS == WINDOWSjOS) 
# include "nriclocks.h" 

SXint tgtTime; /* Tgt time for GC pause */ 

#endif 

THREAD_INFO * threads; 

int gc_sleeping; 
int gc_count; 
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int next_thread; /* HEY! get rid of this... */ 

int pause_gc_flag; 
int paus e_ok_f lag ; 

int run^to_ccnpletion w witiout_pausing; 

SXobject threa<^awaiting_conplete_gc; 

double total_gc_time_in_cycle; 

double max-incranent_iiucycle; 

double total^vizjnenutiine^in^increment; 

double total_write_barrier_tiine_in_cycle; 

tock_type start_gc_cycle_tocks ; 

tock_type start_gc_increment_tocks; 

int gc_done; 

int increment_count; 

int gc_increraent; /* milliseconds */ 

SXobject gc_thread; 

SXobject gc_threacLclock; 

SXobject gc_threadL_cal lback ; 

SXobject gc_thread_condition; 

SXobject gc_clock; 

SXobject gc_callback; 

double last_cycle _jns = 1; 
double last_gc_jns = 0; 
int last__increments = 0; 
double last^na^_incrementjns = 0; 
double last_write_barrier_jns = 0; 
char * las t_gc_stat ec- 
static 

void remove_object_frcm_f ree_list {GPTR group, GCPTR object) 
{ 

GCPTR prev, next; 

prev = GETJLINK_POINTER ( ob j ect ->prev ) ; 
next = GETJLIN^POINTER(object->next) ; 

if (object == groi5>->£ree) { 
group->free = next; 

} 

if (object == group->black) { 
group->black = next; 

} 

if (object == group->f ree_last ) { 

group->free_last = ((next — NULL) ? prev : next); 

} 

if (prev 1= NULL) { 

SET^LINK^PODTTER (prev->next , next ) ; 

} 
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if (next 1= NULL) { 

SET_LINK_PO UTTER (next ->prev, prev) ; 

} 

group- >gr eerucount = group->green_count - 1; 
group->total_ob j ect_count = group->total_object_count - 1; 

} 

static 

void convert_f ree_to_enpty_pages { int first_page, int page_count ) 
{ 

int next_page_index = first_page; 

int encLpage = first_page + page_count; 

HOLELPTR new; 

/* Remove objects on pages from their respective free lists */ 
while ( next_page_index < encLpage) { 

GPTR group = pages [next_page_index] .group; 

int total_pages = MAX(l,group->size / BYTES_PER_PAGE) ; 

int object_count = (total_pages * BYTES^PER^PAGE ) / group->size; 

int i; 

GCPTR next; 

next = (GCPTR) PAGE_INDEX u jrO_PTR(nextjpage_index) ; 
for (i = 0; i < object_count; i++) { 

remove_obj ect_f ronuf ree_list (group, next ) ; 

next = (GCPTR) ( (BPTR) next + group->size) ; 

} 

next_page_index = next_page_index + total_pages; 

} 

SXini t_enpty_pages ( f irst_page , page_count, HEAP_SEGMEWT) ; 

} 

static 

void coalesce_segment_f ree_pages ( segment ) 

{ 

int next_page_index, first_page_index, last_page_index, contig_count; 

firstj)ageL.iiKaex s -1; 
contig_count = 0; 

next_page_index = PTIL.TO_PAGELINra3C( segments [segment] . f irst_segment_ptr) ; 
last_page_index = PTRJTO_PAGELINDEX (segments [segment] . last_segment_ptr) ; 
while ( next_page_index < last_page_index) { 
GPTR group = pages [next j>age_index] .group; 

int total_pages = (group > (GPTR) 0) ? MAX ( 1 , group- >size / BYTES_FER_PAGE) : 
int count_free_page = (group != EMPTY_PAGE) && 

(pages [next_page_index] . fcytes_used == 0); 

if ( count_f ree_page ) { 

if { first jpage_index ~ -1) { 

f irstjpage_index = next _page_index ; 

} 

contig_count = contig_count + total_pages; 



rtgc.c 

Wednesday, June 1, 1994 4:47 pm 



Page 4 



} 

next_page_index = next_page_index + total_pages; 
if ( { ! count_free_page I I next_page_index == last_page_index) && 
( f irst_page_index != -1)) { 

convert_free_to_enpty_pages ( f irst _page_index, cont ig_count ) ; 

f ir s t_page_index = -1; 

contig_count s 0; 

} 

} 

} 



static 

void coalesce_all_f ree_pages ( ) 

{ 

int segment; 



for (segment = 0; segment < total_segments; segment**) { 
/* HEYi Put a MAYBE_PAUSE here */ 
if (segments [segment] .type == HEAP_SEGMEWT) { 
coalesce_segment_f ree_pages (segment ) ; 

} 

} 



} 



/* HEYi pass in group info! */ 
static 

P int SXmake_ob j ect_gray ( GCPTR current, BPTR raw) 

{ 

H GCPTR prev; 

fy GCPTR next; 

GCPTR black; 
J GCPTR gray; 

p GPTR group = PTRJIO_GROUP (current ) ; 

{I BPTR header = (BPTR) current + sizeof (GC_JEADER) ; 

/* Only allow interior pointers to retain objects <= 1 page in size */ 
if ( (group->size <= IOTERIOI^PIT^RErrENTICN_LIMIT ) | I 

(((int) raw) == -1) II (raw == header)) { 

prev s GET.J^INICPOINTER( current ->prev) ; 

next = GETJjINFL-POINTER ( current - >next ) ; 



/* Remove current from WHITE space */ 
if (current == group->white) { 
group->white = next; 

} 

if (prev != NULL) { 

SET^LINK^POINTER (prev->next , next ) ; 

} 

if (next != NULL) { 

SET_LINK_POIOTER ( next - >prev , prev) ; 

} 



/* Link current onto the end of the gray set. This gives us a breadth 
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first search when scanning the gray set (not that it matters) . */ 
SET^LINK^POINTER ( current - >pr ev , NULL ) ; 
gray = group- >gray; 
if (gray == NULL) { 

SET_LINK^.POIOTER ( current ->next , group->black) ; 
if (group->black == NULL) { 
group->black = current; 
group->free_last = current; 
} else { 

SET_LINK_POINTER( (group- >black) ->prev, current) ; 

} 

} else { 

SET_LBQL.POINTER( current ->next/ gray) ; 
SET_LINK_POINTER ( gray->prev , current) ; 

} 

SET_COLOR ( current , GRAY ) ; 
group->gray = current; 

group->white_count = group- >white_count - 1; 

} 

return (group->size) ; 



% /* Scan menory looking for *possible* pointers */ 
!*; void scan_jnemory_segnient (BPTR low, BPTR high) 

~: < 

w BPTR next; 

? BPTR ptr; 

M GCPTR gcptr; 

PJ int page_index; 

M GPTR group; 

=p int len; 

U len - high - low; 

/* if GC_POXNTEH_ALIGNMENT is < 4, avoid scanning potential pointers that 

extend past the end of this object V 
high = high - sizeof (LPTR) + 1; 
next = low; 

for (next = low; next < high; next = next + GC^POINTE^JUJIGNMENT) { 
MAYBELPAUSELGC; 
ptr = *({BPTR *) next); 
if ( IN_PARTrriCN (ptr) ) { 

page_index = PTR^TQJPAGE^INDEX (pt r ) ; 
group = pages [page_index] .group; 
if (groi^) > EXTERNAI^PAGE) { 

gcptr - interior_to_gcptr(ptr) ; /* Map it ourselves here! */ 
if WHITEP (gcptr) { 

SXmake_ob j ect_gray ( gcptr , ptr); /* Pass in group info I */ 

} 

} else { 

if (VISUM^MEMORYJDN && (group == EMPTY_PAGE) ) { 
SXupdate_visual_f ake_ptr_page (page_index) ; 

} 
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first search when scanning the gray set (not that it matters) . V 
SET_LINK«POINrER(current->prev, NULL) ; 
gray = group- >gray; 
if (gray == NULL) { 

SET_LINK_POINrER ( current ->next , group->black) ; 
if (group->black == NULL) { 
group->black = current; 
group->free_last = current; 
} else { 

SET_LINKL_POINTER( (group->black) ->prev, current ) ; 

} 

} else { 

SET JLINK_POINTER ( current - >next , gray); 
SET_LINK_POINTER ( gray- >pr ev , current) ; 

} 

SETjCOL0R( current , GRAY) ; 
group->gray = current; 

group- >white_count = group->white_count - 1; 

} 

return (group->size) ; 

} 



/* Scan memory looking for 'possible* pointers V 
void scanjen©ry_segnent(BPTR low, BPTR high) 
{ 

BPTR next; 
BPTR ptr; 
GCPTR gcptr; 
int page_index; 
GPTR group; 
int len; 

len = high - low; 

/* if GC_POINTEILALIGNMEOT is < 4, avoid scanning potential pointers that 

extend past the end of this object */ 
high = high - sizeof (LPTR) + 1; 
next = lew; 

for (next = low; next < high; next = next + GC_POINTER^ALIGNMEOT) { 
M&YBELPADS3J3C; 
ptr - *((BPTR *) next); 
if (m_PAKTITIGN{ptr) ) { 

page_index = PTRJTOLPAGEL.INDEC(ptr) ; 
group = pages [page_index] .group ; 
if (group > EXTERNAL_PAGE) { 

gcptr = interior_to_gcptr(ptr) ; /* Map it ourselves here! */ 
if WHTTEP (gcptr) { 

SXmake_ob j ect_gray (gcptr, ptr); /* Pass in group info* */ 

> 

} else { 

if (VISUAI<JffiMORy_CN && (group == EMPTY_PA3E) ) { 
SXupdate_visual_f ake_jptr_page (page_index) ; 

} 
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} 

} 

} 

} 

#include _f_ObjStoreProtocol_h_ 

typedef struct metadata_list { 

struct metadata_list *next; 

MetaDataPtr metadata; 
} metadatak_list; 

void walk_jnetadata (MetaDataPtr metadata, metadata_list *seen) ; 

static walkjnetadatajDasictype (MetaDataBasicType *metadata, metadata_list *seen) 
{ 

char *s; 

switch (metadata->basicType) { 

case voicliype: s = "void - ; break; 

case SXcharType: s = •char*; break; 

case SXshortType: s = •short"; break; 

case SXintType: s = "int*; break; 

case SXfloatType: s = "float - ; break; 

case SXdoubleType: s = "double"; break; 

case objType: s s "?????????????????obj type?"; break; 

case functiorfiype: s = "function ptr"; break; 

default : Debugger ( ) ; 

} 

printf ("Basic Type: %s\n",s); 



static void walk_petadata_def inedtype (MetaDataDef inedType ♦metadata, metadata_list *se 
{ 

resolveTVpeDef init ion (metadata) ; 

printf (" Defined Type %s", metadata->typ^ame) ; 

walkjnetadata(metadata->type, seen); 



static void walk^jnetadataupointer (MetaDataPo inter *metadata, metadataulist *seen) 
{ 

printf ( • Pointer to " ) ; 

walKjnetadata (metadata->pointerRef , seen) ; 

/* We could check that metadata matches the actual object 's md V 



static void walk u jnetadata_vector (MetaDataVector *metadata, metadata^list *seen) 
{ 

int size; 

printf ( " Vector of " ) ; 

walk-jnetadata (met adata->vect orContent s , seen) ; 
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if ( (metadata->metadata.typeFlags) & VECTOR^VAR^LENGTH) { 
printf ("YOWl A var length vector. . An") ; 

size = 0; /* (metadata->nElements) (base_of_enclosing_structure, p t r_t o_vec t o r_ 
} else { 

size = (int) metadata->nElements ; 

} 

} 

static void walk_jnetacfeta_structure_element (StructureElement *element, metadata__list * 
{ 

printf (" fieldname = %s, offset = %d element->fieldName, element ->structEle 
walkjnretadata (element^structElementType, seen); 

} 

static void walk_jnetadata_structure ( Met aDataSt nurture *metadata, metadata_list *seen) 
{ 

int i; 

print f ( • Structure of { \n* ) ; 
for {i = 0; i < metadata->nEleroents; i++) { 

walk_jretadata_structure_element { & (metadata- >structureCont ents [ i ] ) , seen) ; 

} 

h& printf (MXn - ) ; 

jp } 

J5 

u static void walKjnetadata_union(MetaDataUnion *metadata, metadata_list *seen) 

n i 

printf ( -YCW! A union. . . \n- } ; 

U } 

MS 

static void wallonetadata_cust<m(MetaDataCustam ^metadata, metadata_list *seen) 

J; printf ( ■ Custom metadata \n" ) ; 

*■* walkjnetadata (metadata->type, seen); 

U } 

void walkLJtetadata (MetaDataPtr metadata, metadata_list *seen) 
{ 

metadatO-ist record, *next; 
void (*f){void *, void *); 
int cycle® ; 

record .next = seen; 

record . metadata = metadata; 

next = seen; 

cyclep = 0; 

while (next != 0) { 

if (next->raetadata == metadata) { 
cyclep = 1; 
next = 0; 
} else { 

next = next->next; 

} 
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} 

if (Icyclep) { 

switch (metadata->typeFlags & METADATA JIYPE_MASK ) { 

case METADATA^BASICJIYPE: f = (void (*) (void *, void *)) walk_jnetadata_basicty 
case METADATAJEFINEDjrYPE: f = (void (*) (void *, void *)) walk_jnet ada t a_de f in 
case METADATA^POINTER: f = (void (*) (void *, void *)) walk_jnet adat appoint er; b 
case METADATA_VECTOR : f = (void (*) (void *, void *)) walkj&etadata_vector; bre 
case METADATA_STRUCTURE : f = (void (*) (void *, void *)) walk_petadata_structur 
case METADATA.JC3NICN : f = (void (*) (void *, void *)) walk_metadata_union; break 
case METADATA^CUSTOM: f = (void (*) (void *, void *)) walk _jnetadata_custom; 
default: Debugger () ; 
} 

(*f ) ( (void *)metadata, (void*) seen); 

} 

} 

static void 

instance metadata ( SXob j ect instance ) 

{ 

SXclass_o cl = ( SXclass_o)CLASSOF( instance ) ; 

SXclass_o sc; 

SXint offset = cl->allocz; 

SXint i; 

MetaDataPtr metadata; 

for(i s 0; i < cl->vecSize; i++) { 
sc = cl->precedenceVector[i] ; 
metadata = sc-xaet adata ; 
if (metadata != 0) { 

printf("sc = %s, md = %x\n - ,sc->name, metadata); 

memory_jnutex = 0; 

walk-jnetadata (metadata, 0); 

memory jraitex = 1; 

} 

offset -= sc->nyIV3ize; 

} 

} 

static 

void scaiorenory_segment_with^ (BPTR low, BPTR high, MetaData *md) 

{ 

scan^jnemory^segment (low, high) ; 

} 

/* Snapshot-at-gc-start write barrier. 

This is really just a specialized version of scanjneraory_segment */ 
void * SXwrite_barrier(int * lhs_address, int rhs) 

{ 

if ( memory jtutex == 1) { 

printf ("HEY! write^barrier called from within GC!\n B ); 
Debugger () ; 

return((void *) (*lhs_address = rhs)); 
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} 

if (enable_*rcite_barrier) { 
BPTR object; 
GCPTR gcptr; 

if (iNABl^_VISU2^JdEM0RY) STAOT_CODEJTIMING; 
object = *{(BPTR *) lhs_address) ; 
if (IN_HEAP( object) ) { 

gqptr = interior_to_gcptr( object) ; /* (GCPTR) (object - 8); */ 

if WHITEP (gcptr) { 

SXmake_ob j ect_gray ( gqptr , ( BPTR) - 1 ) ; 

} 

} 

if ( E^IABLEJ/ISUAL^MEMORY ) END_C0DEJTIMIIK3(total_^ 

} 

return( (void *) (*lhs_address = rhs)); 

} 

void * SXsaf e^bash ( int * lhs_address, int rhs) 

BPTR object; 
GCPTR gcptr; 



if (CHECK_BASH) { 

object = * ( (BPTR *) lhs_address) ; 
if ((HLfJEAP(object))) { 

gcptr = interior_to_gcptr{ object) ; 
if WHITEP(gqptr) { 

if (roenoryjfnutex ==1) { 

print f ('HEY! write^barrier called from within GC!\n"); 
Debugger () ; 

return ((void *) (*lhs_address = rhs)); 

} 

Debugger () ; 

} 

} 

} 

return ( SXwrite_barr ier ( lhs_address , rhs ) ) ; 



void * SXsaf e_setf Init ( int * lhs_address, int rhs) 
{ 

BPTR object; 

if (CHEC£_SETFINIT) { 

object = *( (BPTR *) lhs_address) ; 
if (object != NULL) { 

/* if ((int) object 1= rhs) V 

Debugger ( ) ; 

} 

} 

return((void *) (*lhs_address = rhs)); 



ru 
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} 

void *ptrcpy(void *pl, void *p2, int numjDytes) 

{ 

i f ( enable_write_jDarrier ) { 

if ( ENABLE _QC_TIMING ) START jCODE_TIMING ; 
pause_ok_flag = 0; 

scan_jnenK>ry_segment (pi , ( BPTR) pl+nunutyt es ) ; 
pause_ok_flag = 1; 

if ( ENABLE_GC JTMCNG ) END_CODE_TIMING ( total_writ e_barr ier_t ime_in_cycle ) ; 

} 

menx^(pl,p2,nurrLi^es) ; 
return (pi) ; 

} 

void *ptrset (void *pl, int data, int murUytes) 
{ 

if (enable_write_barrier) { 
pause_ok^flag = 0; 

scamneraory^segroent (pi , ( BPTR) pl+nunUyt es ) ; 
pause_ok_flag = 1; 

} 

memset (pi , data , nunLbyt es ) ; 
return (pi); 

} 



static 

void copyThreadlnf o ( SXob j ect thread) 
{ 

if (next_thread < THREADJJIMIT) { 

threads [next_thread] . thread = thread; 

setNeedSnif f ( thread) ; 

next_thread = next_thread + 1; 
} else { 

/* HEY! Should alloc a bigger buffer V 
printf ( 'Too man/ Threads ! \n" ) ; 
exit(l); 

} 

} 

static 

void save_threacLstate ( ) 

{ 

next_thread = 0; 

SXf orEach ( SXallThreads , (SXfunction) copyThreadlnf o, NOLL); 

} 

void SXscaruthread ( SXob j ect thread) 
{ 

BPTR bottom = SXgetStackBase (thread); 

/* Only scan threads with a real stack and skip the gc thread! */ 
if ((bottom != 0) Set (thread != gc_thread)) { 
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int nuiruregisters; 

BPTR top = SXgetStackTop (thread); 

BPTR ptr_aligned_tqp = (BPTR) ((int) top & ~ (GC_POIOTER ^ALIGNMENT - 1) ) ; 
BPTR regptr = SXthread_registers (thread, tounuregisters) ; 

/* Scan thread state atamically! ! i */ 
pause_ok^flag = 0; 

/* HEY! reg ptrs are aligned on 4 byte boudaries.., */ 
scan_jnenory_seginent( regptr, regptr + (nun\_registers * 4)); 
scaAjneirory_seginent ( p t r_al igned_t op , bottom) ; 
pause_ok_f lag = 1; 

} 

clearGCSnif f (thread) ; 

} 

static 

void scaiuthreads ( ) 
{ 

y : while (next_thread > 0) { 

* n next_thread = next_thread - 1; 

5 SXscan^_thread( threads [next_thread] • thread) ; 

T: MAYBELJPAUSE JSC ; 

=ss / 
pis: / 

static 

U void scan^globals ( ) 
{ 

H #if ENABLE_EXPLIC IT J^LORAI^ROOTS 

f U scaA_e3£>licit_global_.roots ( ) ; 

$else 

scan,_£ieraory_seginent ( f irst_globals_ptr , last_globals j>tr ) ; 
□ if (first_globals_ptr2) 

U scanjnemory_seginent ( f irst_globals_ptr2 , last_globals _ptr2 ) ; 

tendif 
} 

static 

void scaAjstatiojspacet) 
{ 

BPTR next, low, end; 
GCPTR gqptr; 
int size; 

next = first_statiqjptr; 
end = last_static_ptr; 
while (next < end) { 

size = *({int *) next); 

size = size » LINI^INFCUBITS; 

low = next + sizeof (GCPTR) ; 

next = low + size; 

gqptr = (GCPTR) (low - sizeof (GCJEADER) ) ; 
scarL_object (gcptr, size + sizeof (GC_HEADER) ) ; 
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/* Delete me! HEY! Convert to cormon scanner with scan_object 
if ( GET JSTORAGEjCLASS { gcpt r ) != SC_NOPOINTERS) { 
scan^jnanory^segment ( low, next ) ; 

} V 

} 

} 

static 

void scan^root_set ( ) 

{ 

last_gc_state = 'Scan Threads*; 
UPDATELVISUAL_STATE ( ) ; 
scaiuthreads ( ) ; 

last_gc_state = 'Scan Globals-; 
UPDATELVISUAL_STATE ( ) ; 
scaiuglobals ( ) ; 

last_gc_state = "Scan Statics*; 
UPDATELVISUAL_STATE ( ) ; 
scarust at ic_space ( ) ; 



H void scaruobject (GCPTR ptr, int totalize) 

£ { 

M BPTR bptr, low, high; 

p bptr = (BPTR) ptr; 

low = bptr + sizeof (GC_HEADER) ; 
U high s bptr + totalize; 

m switch (GET.JSTORAGELCLASS (ptr) ) { 

12 case SCJWPOINTERS: break; 

V case SC_POINTERS: 

% scan_jaenory_segment (low, high); 

S break; 

case SCLMETAEATA: 

scan u jrenory_segment_with u jTetac^ ( low, high, 0 ) ; 

break; 
case SC_INSTANCE: 

/* instance_jnetadata( (SXobject) low); */ 

scaxonenory ^segment jwithjmetadata ( low, high, 0 ) ; 

break; 
default: Debugger*) ; 
} 

} 

static 

void scan_ob j ect_witlugroup ( GCPTR ptr, GPTR group) 
{ 

scai\_object(ptr, group->size) ; 
SET_COL0R{ptr,roarkecLcolor) ; 
group->black = ptr; 

group->black_count s group->black_count + 1; 

} 
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/* HEY! Fix this up now that it's not continuation based, 
static 

void scan_gray_set ( ) 

{ 

int i, scaiucount, rescaruall_groups; 

last_gc_state = "Scan Gray Set' ; 
UPDATELVISUAL^STATE ( ) ; 
i = MIN_GROUP_INDEX; 
scan^count = 0; 
do { 

while (i <= MA^GROUPJNEEX) { 
GPTR group = &groups[i] ; 
GCPTR current = group- >black; 
/* current could be gray, black, or green */ 
if {(current != NULL) { ! (GRAYP (current) )} ) { 
current = GET_LINK^POlNTER { current ->prev) ; 

} 

while (current 2= NULL) { 
MAYBELPAUSEU3C; 

scan_obj ect_witlugroup ( current , group ) ; 

scarucount = scaiucount + 1; 

current = GE7T_LINK_PO INTER ( current - >pr ev ) ; 

} 

i = i + 1; 

} 

if (scaxucount > 0) { 

rescan_all_groups = 1; 

i = MINjGROUP_INEEX; 

scarucount = 0; 
} else { 

rescaiual l_groups = 0; 

} 

} while (rescan_all_groups — 1); 
MAYBEL.PAUSEJ3C; 

} 

static 
void flipO 
{ 

int i; 
GPTR group; 

GCPTR free, prev, free_last, black; 
double percent_used; 

MAYBELPAUSSJSC; 
last_gc_state = - Flip # ; 

for (i x MIHJ2*0UP_INDEX; i <= HAXJ3RCOP_INDEX; i++) { 
group = &groups[i]; 
group- >gray = NULL; 
free = group->free; 
if (free != NULL) { 
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prev = GET_LINK_POINTER(free-:>prev) ; 
if (prev 1= NULL) { 

SET_LINK_POINTER ( prev- >next , NULL ) ; /* end black set */ 

} 

SET_LINK_PO INTER ( f ree->prev, NULL ) ; 
} else { 

free_last = group->f ree_last ; 
if (free_last != NULL) { 

SFT_LINK_POINTER ( f ree_las t - >next , NULL ) ; /* end black set */ 

} 

group- >free_last = NULL; 

} 

black = group->black; 
if (black == NULL) { 
printf CYOW!\n"); 

} 

group- >white = (GREENP (black) ? NULL : black); 

group->black = group->free; 
group->white_count = group- >black_count ; 
group- >black_count = 0; 

} 

SWAP (markecLcolor, unmarkecLcolor ) ; 
save_threacLstate ( ) ; 



/* We need to change garbage color now so that conservative 

scanning doesn't start making free objects that look white turn gray! */ 
static 

GCPTR reofcle_group_garbage (GPTR group) 
{ 

GCPTR next; 
GCPTR last; 
int count = 0; 

last = NULL; 

next = group- >white ; 

while (next != NULL) { 

int page_index = PTRJIO_PAGEL_INDEX (next ) ; 

PPTR page = &pages [page_index] ; 

int olcLfcytes_used = page- >byt es_used ; 

page->bytes_used = page->bytes_used - group->size; 

if (VISUAL^flEMORYjCN) { 

SXraaybe_update_visual_page (page_index, oldj3ytes_used,page->fcytes_used) 

} 

if ( GET_STORAGE_CLASS (next ) == SC_INSTANCE) { 

SXobject obj = (SXobject) ( (BPTR) next + 8); 

void (*finalize) (SXobject) = (*obj)->finalize; 

if (finalize != NULL) { 

/* printf (•class = %s\nV (* (SXclass_o *) obj ) ->name) ; */ 
/* UGi We're code that does SXgeneric dispatches, which may 
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in turn try to allocate storage. V 
memory jnutex = 0; 
if Hint) finalize != 1) { 

f inalize(obj) ; /* Single- inheritance speed optimization */ 
} else { 

SXfinalize(obj); /* Multiple- inheritance */ 

} 

/* SXfinalize(obj); */ 
memory_jnutex = 1; 

} 

} 

SETjCOLOR (next , GREEN) ; 

if ( DETECT_INVALID_KEFS ) memset ( (BPTR) next + 8, INVALID^ADDRESS , group->size 
last = next; 

next = GET_LINK^POrNTER ( next - >next ) ; 
count = count + 1; 
MAYBE_PAUSE_GC ; 



/* HEY! could unlink free obj on pages whose count is 0. Then hook remaining 

frag free onto free list and coalesce 0 pages */ 
if (count != group- >white_count ) { 
r SXverify_all_groups ( ) ; 
" Debugger ( ) ; 
} 

/* Append garbage to free list. Not great for a VM system, but it's easier */ 
if (last » = NULL) { 

SET^LINK^PO INTER ( last ->next , NULL ) ; 

if (group->free == NULL) { 

group->free = group- >white; 

«F if (group->black == NULL) { 

P groi£>->black = groiqp->white; 



ry 



if (group->free_last i= NULL) { 

SET_LIN5_P0INTER( ( group- >f ree_last ) ->next , group->white ) ; 

} 

SETJjINK^POINTERt (group->v*hite) ->prev, group->f ree_last ) ; 
group->free_last = last; 

groi^>->green w count = group- >green u _count + count; 

} 

group->white = NULL; 
group->white_count = 0; 
return (last); 



static 

void recycle_all_garbage { ) 
{ 

int i; 
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last_gc_state = "Recycle Garbage" ; 
UPDATELVISUALl-STATE ( ) ; 

for (i = MINjGRDOP_INDEX; i <= MAXJ3R0UP_INDEX; i++) { 
recycle_group_garbage { &groups [ i ] ) ; 

} 

coalesce_all_f ree_pages { ) ; 



void SXset_gc_pause_f lag (void) 
{ 

pause_gc_f lag = 1; 

} 

void SXrestart_gc (void) 
{ 

#if (OS — MAC—OS) 

SXrelinquish (gc_threadLcondition) ; 
#endif 
} 

static 

void setGCIncrement (int n) 

{ _ 

SXlong time; 
time. hi = 0; 
time.lo = n; 

SXsetTime (gc_callback, &time); 
gc_increment = n; 
if (n == 0) { 

SXsetiv(gc_threacLclock # rate, 0); 

SXsetiv(gc_clock, rate, 0); 

SXsetTime (gc^threacLcallback, &time); 
} else { 

SXlong time; 

time, hi = 0; 

time.lo = 50; 

SXsetiv(gc_t±readLclock, rate, kFixl); 
SXsetiv (gc_clock, rate, kFixl); 
SXsetTime (gc_thread_callback, &time); 

} 

UPDATELVISOAI^STATE ( ) ; 



SXobject SXsetGc Increment (SXobject n) 

{ 

/* This function is a nop for Windows */ 
#if (OS ~ MACjOS) 

setGCIncrement (SXintFrom(n) ) ; 

return (n) ; 
#elif (OS == WINDCWS_OS) 

return SXundef ined; 
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#endif 
} 

static 

void init_crc_pause_callback() 
{ 

#if (OS == MAC JDS) 

int ticks_per_second; 
SXobject callback; 
SXlong time; 
time. hi = 0; 

time.lo = 50; /* 50 means 1000/50 = 20 times per second */ 
ticks_per_second = 1000; 

gc_threadLcondition = SXmakeCondition (SXundefined) ; 

gc_clock = SXmaJceClock (SXundefined, iirmed{ticksj>er_second) , SXundefined) ; 
J* #ifdef THREAD_CALLBACK 

jj[ gc_threacl-Clock = SXmakeClock { SXundef ined, iirmed(ticks_per_second) , SXundefined); 

U #endif 

HP ~gc_callback = SXmakeTimeCallBack (gc_clock, falseObject, (SXfunction) SXset _gc_pa 

«P NULL, SXiforward, SXiinterrupt, 

H SXstrToObj ( -GCpauseCB" ) ) ; 

#ifdef THREAD. .CALLBACK 
M gc_thread_callback = SXmakeTimeCallBack ( gc_threa<i_clock , falseObject, 

fU (SXfunction) SXrestart_gc, 

iU NULL, SXiforward, SXisystem, 

V SXstrToObj ("GCrestartCB") ) ; 

S #endif 

setGC Increment ( DEFAULT JXT_INCREMENT ) ; 
SXset iv { gc_c lock , rate, kFixl) ; 

tifdef THREAD_CALLBACK 

SXset iv(gc_threacLclock, rate, kFixl) ; 

SXsetTime (gc_threac^callback, &time); 

#endif 

#elif (OS == WIND0WS_0S) 

tgtTime = SXgettflDClockCounter () . + SXgcTicks; 
#endif 

} 

static 

void reset_gc_pause_callback{) 
{ 

#if (OS == MACROS) 
SXlong zero; 
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zero. hi = 0; 

zero.lo = 0; 

pause_gc_flag = 0; 

SXsetTime (gcslock, &zero) ; 
#elif (OS == WINDCWSJDS) 

tgtTime = SXgetMDClockCounter () + SXgcTicks; 
#endif 
} 

static 

void start_gc_increment ( ) 

{ 

total_viz_jne^tiine_irx_increnent = 0.0; 

if (VISUALJdEMORYjON) SXvisual_runbar_on ( ) ; 

if (memory_jraitex ==1) { 

printf { "Error - GC within GC ! \n" ) ; Debugger ( ) ; 

} 

if (ENABLELGCJTIMING) CPULTOCKS ( start^c_incrementSocks ) ; 
if {runSoscnpletion_withoutj«using ==0) { 
M reset_gc_pause_cal lbaek ( ) ; 

b > 

S memory_jTuitex = 1; 

U pause_ok_flag = 1; 

2J static 

W void endLgcL-increment ( ) 

H memory_jmitex = 0; 

FU pause.jgc_flag = 0; 

M if (VISUAJ^KEMORY.CN) SXvisual_runbar_of f { ) ; 

«P if (ENABLELJGCJTIMING) { 

O double incrementjtiroe; 

M ELAPSEEUHLLISBCONDS ( start_gc_incrementSocks , increments ime ) ; 

increments ime = increments ime - total_viz^jnenutime_in^increment ; 
total^gcSime^iA.cycle = t ot al_gc_t iroe_in^cycle + increments ime ; 
increment_count = increment_count + 1; 

nB^_increment_iiu.cycle = MAX(ma^increment_insycle, increments ime ) ; 

} 

if ( t^eadujav^it ing_ccirplete_gc ==0) { 
#if (OS == MACROS) 

#ifdef THREADjCALLBACK 
SXloog zero; 
zero. hi = 0; 
zero.lo = 0; 

SXsetTine(gcShreadLclock,&zero) ; 
#endif 

SXgateWait ( gc_threa4_condi t ion ) ; 
#elif (OS == WINDOWS_OS) 
SXthreadYieldO; 

#endif 
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} else { 

SXobject thread = thread_awaiting_conplete_gc; 
threacLawait ing_canplet e_gc = 0; 
SXthreadYieldTo{ thread) ; 

} 

} 

void SXjpause_gc{) 
{ 

if (ruiuto_conpletionL.without_pausing ==0) { 
end^c_increment ( ) ; 

/* At this point we are resuming from a thread yield */ 
start_gc_increment ( ) ; 

} 

} 

/* HEY.! sleep and awaken should stop the pause and wakeup clocks from 
even going off I */ 
U void SXsleep_gc() 

b < 

S gc_sleeping = 1; 

2 jnenoryjnutex = 0; 

> pause_ok^_flag = 0; 

1~ if (VISUAI<JiEMORY_CN) SXvisual_runbar_of f ( ) ; 

71 SXthreadDeactivate(gc_thread) ; 

J* start^£rc_increment ( ) ; 

^ void SXawaJcerugc ( ) 

ru { 

if (enable_gc && (gc_thread 1=0)) { 

p gojsleeping = 0; 
O SXthreadActivate (gc_thread) ; 

M; } 
} 



static 

void reset_gc_cycle.jstats ( ) 

{ 

total_allocatioruthis_cycle = 0; 
t otal_gc_t ime_irucycle = 0.0; 
total_writeJ>azxier_tiine_in^cycle = 0.0; 
maxLincreinent^iiucycle = 0.0; 
increnent_count = 0; 

if (ENABLE_GCJTIMING) CPOJTOCKS ( start_gc_cycle_tocks ) ; 

} 



static 

void sunnexize_gc_cycle_stats ( ) 

{ 

double total_cycle_t ime ; 
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if ( ENABLELGC JTIMING ) { 

ELAPSED_fHLLISBCCm)S { start_gc__cycle_tocks , total_cycle_time ) ; 
last_cycle_jns = t ot al_cycle_t ime ; 
last_gc_jns = t ot al_gc_t iirve_iiucycle ; 
last_increments = increment _count ; 
last.jnax^increment.jns = max_incroTvent_in_cycle ; 
last_write_barrier_jns = total_writ e_barrier_t irne_in_cycle ; 

} 

if (VTSUAL_MEMDRY_CN) SXdraw_visual_gc_stats ( ) ; 



static 

void full_gc{) 
{ 

reset_gc_cycle_stats ( ) ; 

gc_done = 0; 

flipO; 

scaruroot_set ( ) ; 
scanjgray_set ( ) ; 

enable_writej3arrier = 0; 
recycle_all_garbage ( ) ; 
enable jwritejaarrier = 1; 

gc_count = gc_count + 1; 
gc_done = 1; 

s\OTrarize^c_cycle_stats { ) ; 
last_gc_state = "Cycle Complete "; 
UPEATELVISUAL_STATE ( ) ; 

if ( rurL.t o_ccrrplet ion_without_paus ing == 1) { 
ron^to_conpletiorx_without_pa\ising = 0; 
SXpause_gc() ; 

} 

MAYBE JSLEEP JSC ; 



Static 

void gc_loop ( SXob j ect bogus_arg) 

{ 

st art_gc_increnient { ) ; 
while (1) { 

full_gc<); 

} 

} 



/* Run the current gc cycle to completion without pausing. */ 
static 

void run u ^c_to_conplet ion (void) 
{ 

rui\_t o_conplet ion^wi thout_paus ing = 1; 
thread_awaiting_conplete_gc = SXrunningThread; 
SXthreadCriticalIJp( ) ; 

SXrestart_gc ( ) ; /* ensure that GC thread is not waiting on a condition */ 
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SXthreadYieldTo (gc_thread) ; 
SXtJireadCriticalDown( ) ; 

} 

SXobject SXgc(void) 
{ 

if (gc_thread != 0) { 

run_gc_to_conpletion( ) ; 
ruixjjc_to_ccirpletion() ; 
return (iinned(gc_coxmt) ) ; 

} 

} 

void SXinit_realtime_gc ( ) 
{ 

int threacLfcytes; 



gc — thread = 0; 
gc_count = 0; 
gc_sleeping = 0; 
enable_gc = 0; 

zun^t o_corplet ion_without_paus ing = 0; 
threa<l.awaiting_cOTplete_gc = 0; 
visual_jne?noxy_on = 0; 
last_gc_state = *<initial state>"; 

threadJbytes = sizeof (THREAD_INFO) * THREAD JjIMIT; 
threads = malloc(threadjpytes) ; 

if (threads == 0) { 

out_of jrenory ( "ScriptX" , threadjtytes / 1024); 

} 

ok_to_gc_in_growzone = 1; 



#endif /* Conditional inclusion of file */ 

/* Use #elseif and avoid internal #if stuff V 



void SXstart^jgcO 

{ 

#if ENABLE^REALTMLGC 
enable_gc = 1; 
init_gc _pause_callback { ) ; 

/♦Be sure to start the gc deactivated since it uses the value of gc_thread */ 
gc_thread = SXmakeRegularThread (SXstrToObj ( •Garbage Collector' ), 

SXfnToObject (gc_loqp, 1), SXundefined, SX^PRIORITY.GC, 
SXiNonPreeinpt ible , trueObject, SXundefined); 

SXawakerugc ( ) ; 
#endif 



void SXcancel_gc_pause_callback ( ) 
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#if ENABLE_REALTIME_GC 

gc_sleeping = 0; /* Don't let allocation reactivate the GC! */ 

if (gc_thread != 0) { 

SXthreadKill (gc_thread) ; 
#if (OS == MAC_OS) 

SXcancel (gc_callback) ; 

#endif 

} 

#endif 
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/* Real time Storage allocater 

* History (Most recent first): $Log: rtalloc.c, v $ 

* Revision 1.2 1994/05/19 01:26:42 wade 

* Montery fixes 
* 

* Revision 1.1 1994/05/05 02:57:41 wade 

* memory reorg + misc fixes 
* 

* Revision 1.114 1994/04/28 18:09:08 Clayton 

* Beta changes made in main branch (nop setgcincrement ( ) for Windows) 

* $EncLof_Log$ 
* 

V 



#include "gdefs.h" 

#include "oich* 
Li #include <assert.h> 
p # include _f_jnerrumternalsji_ 
Q #include _f JKFixedMati\J*_ 
H # include "priori ty.h" 
M #include -metadata. h" 

S| #pragma ignoreroot groups pages 

p GROUP_INFO * groups; 

PAGELJNFO *pages; 

M HOLEL.PTR enpty-Pages ; 

12 /* HEY! Only 1 static segment while these are global! */ 

V BPTR first_static_ptr; 

S BPTR last_static_ptr; 

*"* BPTR first_partitiao_ptr; 
BPTR last _partitioaj>tr; 

BPTR first_globals_ptr; 
BPTR last_globals_pt r ; 
BPTR fixst_jglobals_ptr2; 
BPTR last_globals_ptr2 ; 

SB3MENT * segments; 
int total_segments; 

int total_partition^pages; 
int meraoryjnutex; 

int ok_to_gc_iiugrowzone ; /* Only used by the mac */ 

int unmarkecLcolor; 

int markecLcolor; 

int enable_gc; 

int enable_write_barrier; 
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int tracingjnenuisage; 

int total_allocation; 
int total_requeste<3_allocation; 
int total_requestecLobjects; 
int total_allocatioiuthis_cycle; 

SXbool SXgPr intAllocat ionSwi t ch = SXfalse; 

static 

int size_to_groxip_index ( int size) 
{ 

int s = size; 
int index = 0; 

s = s - 1; 
while (s != 0) { 
. s = s / 2; 

index = index + 1; 

} 

return (MAX (MIN.GROUP^INDEX, index)); 



i init_groupuinf o ( ) 
int size, index; 

for (index = MIN_GROUP_INDEX ; index <= MAX_GKOUP_LNDEX ; index = index + 1) { 
size = 1 « index; 
groups [index] .size = size; 
groups [index] .index = index; 
groups [index] .free = NULL; 
groups [index] .free_last = NULL; 
groups [index] .vrtiite = NULL; 
groups [index] .black = NULL; 
groups [index] .grey = NULL; 
groups [index] .grsy = NULL; 
groups [index] .total_object_.count = 0; 
groups [index] .white_count = 0; 
groups [ index] . black_count = 0; 
groups [index] . green^count = 0 ; 

} 



static 

void init_page_inf o { ) 
{ 

int i; 

for (i s 0; i < total_partition_pages; i++) { 

/* Could put the next two in a per segment table to save memory */ 
pages [i] .base = NULL; 



£ sta£ 
p void 

N { 

rtSSBSj- 
L-J 



nj 
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pages [i] *bytes_used = 0; 
pages [i] .group = SYSTEM_PAGE; 

} 

} 

void SXinit_CTpty_pages ( int first_page, int page_count, int type) 
{ 

int last_page = first_page + page_count; 
int i; 

HOLE_PTR new_hole; 

for (i = first_page; i < last_page; i++) { 

/* Could put the next two in a per segment table to save memory */ 
pages [i] .base = NULL; 
pages [ i ] . fcyt es_used = 0; 
pages [i] •group = EMPTY_PAGE; 

if (VISUALJMEMDRY^CN) SXupdate_visual_page ( i ) ; 

} 

if (type == HEAP_SECMENT) { 

/* Add the pages to the front of the enpty page list */ 

newjiole = (HOLELPTR) PAGE_INDEXjrO_PTR ( first jpage) ; 
r newJiole->page_count = page_count; 

newJhole->next = enpty_pages; 

enptyjpages = newjiole; 
} else { 

/* HEYi fix this to allow more than 1 static segment */ 
last_static_ptr = segments [0] . last_segment_ptr; 
first_staticjptr = last_static_jptr; 

} 

} 

/* HEY! This belongs in oicAccessors.h. What does the wierd uniitroed stuff in there do 
#define uxuirned(x) (((int) (x) - 1) » 2} 

static 

int allocate_segment (int desiredjsytes, int type) 
{ 

int actual Jytes ; 
BPTR f irst_segment_ptr ; 
int sysfree; 

if (total_segments < MW^jSEGMENTS) { 

sysfree = unimned { SXlargestFreeSystemBlock ( ) ) ; 

desiredLfcytes = ( (desiredJytes / BYTES_PER_PAGE) + 2) * BYTES^PER^PAGE; 
/* HEY! maybe take less. At least make the cushion a mem-config par am */ 
if (sysfree < (desiredjytes + 10000)) { 

actual_fcytes = 0; 
} else { 

int old_flag; 

int segment_page_count, first_segment_page; 

int segment = total_segments; 

actualjbytes = desiredjsytes - BYTES_PEf^_PAGE ; 



rtalloc.c 

Wednesday, May 25, 1994 3:02 PM 



Page 4 



olcLflag = ok_to_gc_in_growzone ; 
ok_t o_gc_in_growz one = 0; 

first_segment_ptr = SXbig^lloc(desiredJytes) ; 
ok_to _gc_in u _growzone = old_f lag; 

if (first_segment_ptr) 

{ 

total_jsegments = total_segments + 1; 

segment_page_count = actual_fcytes / BYTES_PER_PAGE ; 
first_segment_ptr = ROUND_UP_TO_PAGE(f irst_segrnent_ptr) ; 

segments [segnent] .first_segment_ptr = f irst_segment_ptr; 
segments [segment] . last_segment_ptr = f irst_segment_ptr + 

{ segment_page_count * B YTES_PER_PAGE ) 
segments [segment] . segment_page_count = segment _page_count; 
segments [segment ] . type = type; 

f irst_segment_page = PTR^TO_PAGE_INDEX(first_segment_ptr) ; 
SXinit_enpty jpages ( f irst_segment_page , segment_page_count , type ) ; 

} 

else 

actual_fcytes = 0; 

} 

} else { 

actual J^ytes = 0; 

} 

return (actual_fcytes) ; 

} 

static 

GCPTR allocate_enpty_pages(int require<i_page_count , int min_page_count , GPTR group) 
{ 

HOLE_PTR next, prev, rest, best, best_prev; 
GCPTR base; 

int remaining_page_count, best_xonaining_page_count , next_page_index; 

next = eirpty_pages; 
base = NOLL; 
prev = NOLL; 
best = NULL; 
best_prev = NULL; 

/* Search for a best fit hole */ 

best_reroaining_page_ count = t ot al_part it ion_pages + 1; 
vdiile { (best_remaining_page_count > 0) && (next != NULL) ) { 
if ( next - >page_c ount >= requirecLpage_count) { 

reroaining_page_count = next ->page_count - requirecLpage_count ; 
if ( remaining_page_count < best_renaining_page_count ) { 
best_renaining_page_count = renainingjpage_count ; 
best = next; 
best_prev = prev; 

} 
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prev = next; 
next = next->next; 

} 

if (best 1 = NULL) { 

if (best_remining_page_count ==0) { 

rest = best->next; 
} else { 

rest = (HOLE_PTR) { (BPTR) best + (requiredj>age_count * BYTES_PER_PAGE ) ) ; 
rest->page_count = best_remaining_page_count ; 
rest->next = best->next; 

} 

if (best_prev == NULL) { 

eitpty_pages = rest; 
} else { 

best_prev->next = rest; 

} 

base = (GCPTR) best; 

} 

/* Initialize page table entries */ 
if (base != NULL) { 
£ int i; 

p next_page_index = PTRJTO_PAGE_INDEX ( ( (BPTR) base) ) ; 

Jl for (i = 1; i <= requirec5Lpage_co\int; i++) { 

fi pages [next _page_index] .base = base; 

pages [next_page_index] .group = group; 
J\ pages [next_page_index] .tytes_used = 0; 

!!! next_page_index = next_page_index + 1; 

j u /* if ((i % min_page«jcount) == 0) { 

if ( VISUAL _MEMORY_CN ) SXupdate_visual_page (next_page_index - min__page_ 

i > */ 

return (base) ; 

} 

static 

void init_pages_f or_group (GPTR group, int min_pages) 
{ 

int i, nunuobjects, page_count, pages_per_object, fcyte_count; 

int ntirupage_count ; 

GCPTR base; 

GCPTR prev; 

GCPTR current; 

GCPTR next; 

pages_per_object = group- >size / BYTES_PER_PAGE ; 

byte_count = MAX (pages_per_ob j ect , mintages ) * BYTES_PER_PAGE ; 

nun\_objects = byte_count » group- >index; 

page_count = (nunuobjects * group->size) / BYTES_PER^PAGE; 

minu_page_count = MAX ( 1 , pages_per_obj ect ) ; 
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base = allocate.enpty_pages(page_count, min_page_count , group); 

/* HEY! do this somewhere else? */ 

if (base NULL) { 

int actual_bytes = allocat e_segment (MAX ( DEFAULT_HEAP_SEGMEMT_SIZE, 

page_count * BYTES_PER_PAGE) , 
HEAP_SEX3flENT) ; 

if (actualjaytes < byte_count) { 

memory_jnutex = 0; /* allow SXgcO to thread switch */ 
SXgcO; 

memory _jnut ex = 1; 

} 

base = allocate_enpty_pages(page_count, min_page_count , group); 



if (base != NULL) { 
next = base; 

if { group- >free == NULL) { 
group->free = next; 

} 

current = group->f ree_last ; 

if (current — NULL) { /* No gray, black, or green objects? */ 

group- >black = next; 
} else { 

SET_LINK_POIOTER ( current ->next , next ) ; 

} 

for (i = 0; i < num_objects; i++) { 
prev = currents- 
current = next; 

next = (GCPTR) ( (BPTR) current + group->size) ; 
current->prev = prev; 
current ->next = next; 
SETjCOLOR( current , GREEN) ; 



} 



SET_LINK_POIOTER( current ->next, NULL) ; 
group->free_last s current; 

group- >green_count = group->green^count + nunuobjects; 

group->t otal_obj ect_count = group->total_object_count + nunuobjects; 



static GPTR allocationGroup (void * metadata, SXint size, 

int *returrudatausize, int *returrureal_size, void 'return 

{ 

int datausize, real^size; 
int group_irdex; 
GPTR group; 



if (size >= 0) { 

switch ((int) metadata) { 
case (int) SXnopo inters : 
case (int) SXpointers: 
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data_size = size; 

real_size = size + sizeof (GC_HEADER) ; break; 
default: 

if (METADATAP (metadata) ) { 

/* We count the metadata ptr in data_size for carrpatability with insta 
datcL_size = (size * ( ( (MetaData *) metadata) ->nBytes) ) + sizeof (void * 
real_size = data_size + sizeof (GC_HEADER) ; 
} else { 

if (size != 1) { 

printf ("Error, you may not allocate %d instances\n" , size); 

} 

if (PROXYP (metadata)) 

{ 

SXredirect ((SXobject) metadata, NULL, (SXobject *) ^metadata) ; 

} 

data_size = {(SXclass_o) metadata) ->allocz; 
real_size = data_size + sizeof (GQjffiADER) ; 

} 

break; 

} 

group_index = size_to_group_index(real_size) ; 
if (group_index > MAX_GROUP_INDEX ) { 

SXreport (generalError, SXstrToObj ( ■Maximum object size exceeded")); 
} else { 

group = &( groups [group_index] ) ; 

} 

*retunxj3ata_size = data_size; 
*returrureal_size = real_size; 

♦((SXobject *) return_jnetadata) = (SXobject) metadata; 
return (group) ; 
} else { 

SXreport (generalError, SXstrToObj ("Negative object size")); 

} 

} 

SXint SXstackAllocationSize(void * metadata, SXint size) 
{ 

int data_jsize, real_size; 

GPTR group = allocationGrotp (metadata, size, &data_size, &real_size, fcmetadata) ; 
return (real_size) ; 



SXobject SXtotalFreeHeapSfcaceO 
{ 

int free = 0; 
int index; 
HOLE_PTR next; 

next = enptyjpages; 
while (next i = NULL) { 

free = free + ( next - >page_c ount * BYTES_PER 1 _PAGE) ; 

next = next->next; 

} 
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for (index = MIN_GROUP_INDEX; index <= MAX_GROUP_INDEX; index = index +1) { 
int group_free = groups [index] .green_count * groups [index] .size; 
free = free + group_free; 

} 

return (iirmed( free) ) ; 

} 

SXobject SXlargestFreeHeapBlockO 
{ 

int largest = 0; 
int index; 
HOLEL.PTR next; 

next = eirptyjpages; 
while (next != NULL) { 

largest = MAX ( largest , next ->page_jrount * BYTES_PER l _PAGE) ; 

next = next->next ; 

} 

index = MAX^GROUP^INDEX ; 
while (index >= MIN_GROUP_INDEX) { 
if (groups [index] .free != NULL) { 

largest = MAX ( largest , groups [ index] . size ) ; 
index = 0; 
} else { 

index = index - 1; 

} 

} 

return ( immed ( largest ) ) ; 

} 

/* HEY! fix this or delete it */ 

SXobject SXtaenttighTideO 

{ 

int bytes = 0; 

return ( immed (bytes / 1024)); 

} 

SXint SXallocatianTrueSize(void * metadata, SXint size) 
{ 

int datausize, real_size; 

GPTR group = allocationGroi?) (metadata, size, &data_size, &real_size, ^metadata); 
int mdLsize = ( (metadata > SX£ointers) ? 4 : 0) ; 
return (group- >size - sizeof (GC_HEADER) - ncLsize) ; 



SXint SXtrueSize ( void *ptr) 
{ 
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GPTR group = PTRJTO_GROCJP(ptr) ; 
GCPTR gcptr = interior_to_gcptr(ptr) ; 

int ncLsize = ( (GET_STORAGE.j:LASS (gcptr) > SC_POINTERS) ? 4 : 0) ; 
return (group->size - sizeof (GQ_HEADER) - mcUsize) ; 

} 

void * SXinitializeObject (void * metadata, void * void_base, int total_size, int real_ 
{ 

LPTR base = voicUbase; 
int limit, i; 

GCPTR gcptr = (GCPTR) base; 

limit = ( ( DETECT_INVALID_REFS ) ? 

((real_size » 2) + ( (real_size % sizeof (LPTR) ) 1= 0)): 
(total_size » 2)); 
for (i = 2; i < limit; i++) { 

*(base + i) = 0; /* Clear old pointers! Memset as fast? */ 

} 

switch ((int) metadata) { 
case (int) SXnopo inters : 

SET_STORAGELCLASS (gcptr, SCJTOPOIOTERS) ; 
base = base + 2; 
break; 
case ( int ) SXpo inters : 

SETJSTORAGELCLASS (gcptr, SC_POIOTERS) ; 
,1! base = base + 2; 

w break; 

default : 

if; if (METADATAP (metadata) ) { 

n! LPTR last_ptr = base + (totalize / 4) - 1; 

M» SET^STORAGELCLASS (gcptr, SC_METADATA) ; 

*p *last_ptr = (int) metadata; 

O base = base + 2; 

hk } else { 

/* optionally, print out the name of the class being allocated */ 
if (SXgPrintAllocationSwitch) { 
menoxy_jnutex = 0; 

SXprinln( (SXobject) metadata, SXiNormal, debug) ; 
memoryjaitex = 1; 

} 

SET. STORAGEjCIASS (gcptr, SC_INSTANCE) ; 
( (GCMDPTR) gqptr) -metadata = metadata; 
base = base + 2; 

} 

break; 

} 

SET_PRCXY_INFO ( base , 0); /* an object is not a proxy by default* */ 
return (base) ; 
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void * SXal locate (void * metadata, SXint size) 
{ 

int i, data_size, real_size, limit; 
GCPTR new; 
LPTR base; 
GPTR group; 

if (manoryjnutex) { 

printf ( ■ERROR! alloc within GCI \n" ) ; Debugger { ) ; 

} 

group = allocationGroup (metadata, size, &data_size, &real_size, ^metadata) ; 

if ( TRACEJffiH_USAGE && tracing_merruisage) { 

SXtrace_allocate (metadata, data_size, group->size) ; 

} 

memoryjnutex = 1; 

y if (group->free == NOLL) { 

□ init_pages_f or_group (group, 1 ) ; 

if (group->free == NULL) { 
J~ out_of _pnemory ( ■ Heap 9 , group->size ) ; 

N ) 

Q new s group- >free; 

group->free = GET_LINK_PO INTER (new- >next ) ; 
fll SET_COLOR(new # markedjcolor) ; /* Allocate black! */ 

rT group- >green_count = group- >green__count - 1; 

% group->black_count = group->black_count + 1; 

5 i 

f " int page_index = PTR^TOl.PAGE_INDEX ( new ) ; 

PPTR page = &pages [page_index] ; 
int olcLiytes_used = page->tytes_used; 
page->tytes_used = page->fcytes_used + group->size; 
if (VISOAIcJlQ^RyjON) { 

SXmaybe_update_visual_page (page_index, ol<Uaytes.jjsed, page->bytes_used) ; 

} 

} 

base = SXinitializeC4)ject (metadata, (LPTR) new, group->size, real_size) ; 
/* optional stats */ 

total_requestecLallocation = total^equestecLallocation + data_size; 
total_allocaticn = total_allocation + group->size; 
total_requestedLdbjects = total_requested_objects + 1; 
total_allocation_this_cycle = total^allocatioiuthis^cycle + group- >size; 

memoryjnutex =0; 
MAYBE_JVWAKEN_GC ; 
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#if 0 

/* this would be a more complete way to printout what is being allocated, 
* but it doesn't work... get a bus error. 
V 

if (SXgPrintAllocationSwitch) { 

SXprint_ob j ect_inf o ( (GCPTR) base, 0 ) ; 

} 

#endif 

return (base) ; 

} 

void * SXstaticAllocate(void * metadata, SXint size) 
{ 

int real_size, data_size; 

LPTR base; 

GPTR group; 

BPTR new_static_ptr; 

/* Wfe don't care about the group, just the GCHDR conpatible realms ize */ 
group = allocationGroup (metadata, size, &data_size, &real_size, &metadata); 
_data_size = ROCNDJCJPTO_I^ 



j* real_size = ROarojOPTOJLO^ ; 

/* Static object headers are only 1 word long instead of 2 */ 
pJ /* HEY! add 8 byte alignment??? */ 

newest at ic_ptr = f irst_static_ptr - (real_size - sizeof (GCPTR) ) ; 

P if (new_static_ptr >= segments [0] . f irst_segment_ptr ) { 

int first_static_page_index = PTR u- TO_PAGE_INDE2C(new_static - ptr) ; 
H; int last_staticjpage_index = PTRJTO_PAGE_INDEX(first_static_ptr) ; 

'5 int index; 

H 5 for (index = first_static_^ge_index; index < last_static_page_index; index++) 

pages [ index] . group = STATIC— PAGE; 
if (VISUAI<J4EMORY_CN) SXujpdate_yisual_page (index) ; 

} 

first_static_ptr = new_static_ptr; 
} else { 

if (SXstartingScriptX == SXfalse) { 

/* HEY! allow more then 1 static segment? For now 
just dynamically allocate after booting */ 

return ( SXallocate (metadata , size) ) ; 
} else { 

out.jof.jnemoiy ( "Static Space" , real^jsize) ; 

} 

} 

if ( TRACE JMEHJJSAGE && tracing^jnenuusage) { 

SXtrace_staticAllocate (metadata, datausize, real_size - sizeof (GCPTR) ) ; 

} 

base = (LPTR) first_static_ptr; 
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*base = (data_size « LINK_INF0 JITS ) ; 

base = (LPTR) ( ( (BPTR) base) - sizeof (GCPTR) } ; /* make base GCHDR conpatible */ 
base = SXinitializeOfoject (metadata, base, real_size, real_size) ; 
return (base) ; 



static 

void * copy_ob j ect ( LPTR src, int storage_class, SXint current _size, SXint new_size, SX 
{ 

BPTR new; LPTR new_base; LPTR src_base; int i; 
int limit = currents ize » 2; 

switch (storage_class) { 
case SC_POINTERS: 

new = SXallocate(SXpointers,new_size) ; break; 
case SCJX)POINTERS: 

. new = SXallocate(SXnopointers,new_size) ; break; 
case SC__METADATA: 
{ 

/* HEY! this needs to be fixed to use current_size instead of group_size * 
LPTR last _ptr = src + (group_size / 4) - 1; 
void *md = (void*) * las t_ptr; 
if (MBTAEATAP(md)) { 

new = SXallocate(md,new_size) ; 

limit = limit - 1; 
} else { 

printf ( "metadata bashed! \n* ) ; 

Debugger () ; 

} 

} 

break; 

case SC_INSTANCE: 

new = SXallocateC ( (GCMDPTR) src)->metadata,new_size) ; 
break; 

default: printf { 'Error! Uknown storage class in realloc\n" ) ; 

} 

new_£ase = (LPTR) HEAP_OBJECT_TO_GCPTR(new) ; 

/* No need for write barrier calls since these are initializing writes */ 
for (i = 2; i < limit; i++) { 

*(new_Jbase + i) = *(src + i); 

} 

return (new) ; 

} 

void * SXreallocate(void *ptr, SXint new_size) 
{ 

GCPTR current; 

GPTR group; 

int storage_class; 
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if (GC_DEBUQJ4SGS) { printf("R%d " ,new_size) ; f flush (stdout) ; } 

if ( DJ_HEAP (ptr ) ) { 

current = HEAP_OBJECT_TO_GCPTR (pt r ) ; 
storage_class s GETJST0RAGE_CLASS (current) ; 
group = pages [ PTRJTO_PAGE_INDEX ( current ) ] . group ; 

/* HEY! subtract only 8 if we don't have metadata */ 

if (new_size <= (group->size - 12)) { 

/* HEY! If the object shrinks alot, we should copy to a 

smaller grox^> size. Then free the current object? Dangerous 
if other pointers to it exist. Maybe just let the GC find it. 

Also Clear unused bits so we don't retain garbage! ! ! */ 
return (ptr) ; 
} else { 

return (copy_object ( (LPTR) current, storage_class, group->size, new_size, g 

} 

} else { 

if (m_STATIC(ptr)) { 

LPTR base = ((LPTR) ptr) - 1; 
int current_size = (*base « LINK_INFOJBITS) ; 
current = (GCPTR) (base - 1) ; 
storage_class = GET_STORAGE_CLASS ( current ) ; 
if ( storage_class == SC^METADAT A ) { 

pr int f ("Cannot realloc static objects with metadata yet! ! !\n") ; 
DebuggerO ; 

} 

return (cqpy_object ( (LPTR) current, storage_class, current_size + sizeof(GC 
} else { 

SXreport (generalError, SXstrToObj ('Cannot reallocate - )); 

} 

} 

} 

/* Move object to the free set */ 
void SXdeallocate ( void * ptr) 

{ 

GPTR group; 
GCPTR current; 
GCPTR prev; 
GCPTR next; 
int color; 

if (meraoxyjraitex) { 

printf ( •ERROR! dealloc within GC!\n") ; DebuggerO; 

} 

if (ENABLE_DEALLOCATICN) { 
/* Write me! */ 

} 



/* HEY! make this a macro for speed eventually??? 
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At least pass in the group ptr! */ 
GCPTR interior_to_gcptr (BPTR ptr) 
{ 

PPTR page = &pages[PTRjrO_PAGE_INDEX(ptr) ] ; 
GPTR group = page->group; 
GCPTR gcptr; 



if (groxflp > EXTERNAL_PAGE ) { 

if (group->size >= BYTES_PER_PAGE ) { 

gcptr = page->base; 
} else { 

/* This only works because first_partition_ptr is 

BYTES_PER_PAGE aligned */ 
gcptr = (GCPTR) ( (int) ptr & (-1 « group->index) ) ; 

} 

} else { 

printf { "ERROR! Found IN_HEAP pointer with NULL group! \n B ); 

} 



return (gcptr) ; 



h static 

Zj int call_if_instance_of (GCPTR ptr, SXobject class, void (* func) (SXobject) ) 
int count; 

SXobject header = ((SXobject) ptr) + 2; 

if ( (GET__STORAGEjCLASS (ptr) — SC_INSTANCE) && 
((SXobject) *header != SXInvalidObject) 

! PRQXYP (header) && 
SXisAKindOf (header, class)) { 
(*func) (header) ; 
count = 1; 
} else { 

count = 0; 

} 

return (count) ; 



SXint SXforEachInstance( SXobject class, void <* func) (SXobject) ) 
{ 

SXint total_count = 0; 
int data.size, real_size; 
GCPTR current; 
GCPTR next; 

GPTR group = allocationGroup (class, 1, &data_size, &real_size, &class) ; 
int index; 

if ( ENABLEu.REALTIME_.GC ) SXthreadCriticalUp( ) ; 



o 
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for (index = group->index; index <= MAX_GROUP_INDEX; index++) { 
group = & (groups [index] ) ; 

/* White objects */ 
current = group- >white; 
vAiile (current ! = NULL) { 

total_count = total_count + call_if_instance_of (current, class, func); 

current = GET_LINK_POINTER ( current - >next ) ; 

} 

/* Gray objects + Black objects */ 
current = group- >gray; 
if (current == NULL) { 

current = group->black; 

} 

while ((current i= NULL) && (current != group->free) ) { 

total_count = total_count + call_if_instance_of (current, class, func) ; 
current = GET_LINK_POINTER ( current - >next ) ; 

} 

} 

if ( E2SABI£JREALTIME_.GC ) SXthreadCriticalDown( ) ; 
_return(total_count) ; 

} 

void SXinit_heap ( int f irst_segment_bytes, int static_size, BPTR f irst_usable_ptr, BPTR 
{ 

enablejwrite^barrier = 0; 
o3^to^c_ir\jgrowzone = 0; 
total_allocatian = 0; 
total_requested_allocation = 0; 
total_requestecLobjects = 0; 

first _partitionjptr = ROUND_DCWN_TO_PAGE ( f irs t_usable_pt r ) ; 
last_partition^ptr = ROUND_UP_TO_PAGE(last_usable_ptr) ; 

total^partition^^pages = ( (last_partitionj>tr - firstjpartitioruptr) / BYTESJPER_PA 

/* we malloc vectors here so that they are NOT part of the global 

data segment, and thus will not be scanned. We don't want 

the GC looking at itself! V 
groups = malloc (sizeof (GROUP_INFO) * (MA5CGR0UP_INDEX + 1)); 
pages = malloc (sizeof (PAGE_INFO) * total_partitiorx_pages) ; 
segments = malloc (sizeof (SEGMENT) * MAX^SEGMENTS) ; 
if ((pages ==0) II (groups == 0) II (segments == 0)) { 
out_of_jnemory< "ScriptX* , f irst_segment_bytes/1024) ; 

} 

init_page_inf o ( ) ; 
enptyjpages = NULL; 
total_segments = 0; 

if (allocate_segment (static_size, STATIC_SEGMENT) ==0) { 
out_of jnemory ( ■ ScriptX" , stat ic_size/1024 ) ; 
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} 

last_static_ptr = segments [0] . last_segment_ptr; 
f irst_static_ptr = last_static_ptr; 

if ( allocate_seginent { f irst_segment_bytes , HEAP_SEGMENT) ==0) { 
out_of .jnenoxy ( •ScriptX" , f irst_segment_tytes/1024 ) ; 

} 

markecLcolor = GENERATTQNO ; 
unmarkedjrolor = GENERATION!; 
init_gro\jp_info { ) ; 
first_globals_ptr2 = 0; 
last_globals_ptr2 = 0; 
SXinit_global_bounds { ) ; 

if (ENABLELREALTIME_GC) SXinit_realtime_gc ( ) ; 
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Performance Analysis 

The maximum GC duration is determined by the single 
longest step in the collection process. Step 62 (flip) 
is atomic but is of extremely short , constant duration. 
Essentially only two segments of the present collection 
method are both atomic and of variable duration: making 
the list of all live threads (step 66) , and processing 
the live portion of a thread's state (step 68, with 
respect to a given thread) . Thus, the worst case GC 
duration for the present method is proportional to the 
maximum number of live threads, and to the maximum thread 
state size allowed by the system in use. 

Recall that the present garbage collector only 
restricts mutator execution at the beginning of each GC 
cycle until that mutator's corresponding thread state has 
been processed. Except for this part of the algorithm, 
the frequency of the GC increments is completely 
controllable by the mutator threads or scheduler 28 which 
decides when it is best for the collector to run. Hence, 
the worst case for GC frequency is again proportional to 
the number of live threads. 

In practice, it has been found empirically that for 
typical, state-of-the-art multimedia systems, the maximum 
number of live threads and the maximum thread state size 
lead to worst-case bounds on GC frequency and duration 
that are acceptably within the requirements of typical 
multimedia application programs. Thus, the present 
invention has been found to solve a pressing problem in 
that, to the best of the author's knowledge, has not been 
satisfactorily addressed by any prior art systems in the 
field of garbage collection. 

Another significant advantage of the present 
invention is its suitability for implementation on stock 
hardware. In other words, each of processors 26a-n may 
be a standard computer CPU (such as one in the Motorola® 



68000 series, a SPARC® CPU, or Power PC®) , or a virtual 
software processor running on standard hardware; special 
purpose hardware is not required. Those of skill in the 
art may of course recognize various opportunities to 
increase performance further through the use of some 
special purpose hardware. Such enhancement, while by no 
means necessary, remains squarely within the scope of the 
present invention. 

It will be understood and appreciated by those of 
skill in the art that numerous variations on the 
preferred embodiments described herein are possible, 
while remaining within the spirit and scope of the 
present invention. The invention is limited only by the 
following claims. 
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